diff --git a/R/plot_functions.R b/R/plot_functions.R
index e7a42b66..54442582 100644
--- 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)