fixed bug in SampleBarplot

Morriseylab · Mar 3, 2022 · 429b335 · 429b335
1 parent 34802cd
commit 429b335
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/Plotting.R b/R/Plotting.R
@@ -23,7 +23,6 @@ sampleBarGraph <- function(object,group.by=NULL,col=NULL){
     ggplot(.,aes(x=!!sym(group.by),y=pct,fill=sample)) +
     geom_bar(position="fill", stat="identity")  +
     scale_y_continuous(labels = scales::percent_format()) +
-    scale_fill_manual(values=col) +
     theme_bw() + theme(legend.position = 'bottom')
 
   if(!is.null(col)){