utils.R

noriakis · Apr 29, 2024 · 2ae8a90 · 2ae8a90
1 parent b30d7eb
commit 2ae8a90
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -119,7 +119,8 @@ plotSNVSummary <- function(stana, sp, param="mean_coverage", perSample=FALSE) {
         if (length(stana@cl)!=0) {
             df[["group"]] <- listToNV(stana@cl)[df$sample_name]
             ggplot(df, aes(x=group, y=.data[[param]])) +
-                geom_boxplot(aes(fill=stana@colors), alpha=0.5) + 
+                geom_boxplot(aes(fill=.data[[param]]), alpha=0.5) +
+                scale_fill_manual(values=stana@colors)+
                 cowplot::theme_cowplot()
         } else {
             ggplot(df, aes(y=.data[[param]])) +