Merge pull request #69 from adrientaudiere/dev

fix : fix a bug in multitax_bar_pq
adrientaudiere · Jan 22, 2024 · bc9458a · bc9458a
2 parents 6235303 + 89de093
commit bc9458a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_functions.R b/R/plot_functions.R
@@ -2438,7 +2438,7 @@ multitax_bar_pq <- function(
       theme(legend.position = "none")
   } else {
 
-    psm_2 <- psm %>% 
+    psm_2 <- psm_1 %>% 
       group_by(OTU,.data[[fact]]) %>%
       summarise(Abundance = sum(Abundance)) %>% 
       filter(Abundance > 0)