add an argument to bars_fun to split graph as facet_wrap

a new argument in bars_fun() named split to separate compositional barplot like facet_wrap

R/bars_fun.R

@@ -156,7 +156,8 @@ bars_fun <- function(data = data, rank = "Genus", top = 10, Ord1 = NULL, Fact1 =
                                  showlegend = (.y == levels(meltdat[, Fact1])[1])),
                        keep = TRUE)  %>%
       subplot(nrows = 1, shareX = TRUE, shareY=TRUE, titleX = FALSE) %>%
-      layout(xaxis = list(title = paste0(Fact1, unique(meltdat[, Fact1])[1])),
+      layout(title=plottitle,
+                   layout(title=plottitle, xaxis = list(title = glue("{Fact1} = {unique(meltdat[, Fact1])[1]}")),
              yaxis = list(title = 'Relative abundance'),
              barmode = 'stack')