Skip to content
Snippets Groups Projects

add an argument to bars_fun to split graph as facet_wrap

Merged add an argument to bars_fun to split graph as facet_wrap
(removed):Splitbars_fun into master
1 unresolved thread
Merged Philippe Ruiz requested to merge (removed):Splitbars_fun into master
1 unresolved thread
Viewing commit 01d70700
Prev Next
Show latest version
1 file
+ 1
− 0
Compare changes
  • Side-by-side
  • Inline
R/bars_fun.R
+ 1
− 0
@@ -116,6 +116,7 @@ bars_fun <- function(data = data, rank = "Genus", top = 10, Ord1 = NULL, Fact1 =
if(relative){
#relative abondance
plottitle = "Relative abundance"
otable=apply(otable,2, function(x){Tot=sum(x); x/Tot})
dat= as.data.frame(t(otable))
dat <- cbind.data.frame(sdata, dat)