From a398a59e3b83b7814968f9cd5933201d078aecc5 Mon Sep 17 00:00:00 2001
From: Adrien Taudiere <adrien.taudiere@tutanota.com>
Date: Mon, 22 Jan 2024 16:53:59 +0100
Subject: [PATCH] fix : fix a bug in multitax_bar_pq

---
 R/plot_functions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/plot_functions.R b/R/plot_functions.R
index 16ed036e..b92327ca 100644
--- a/R/plot_functions.R
+++ b/R/plot_functions.R
@@ -2448,7 +2448,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)