Figures valentina

figures/src/fig_rgi.R

@@ -34,7 +34,7 @@ for(dtype in unique(stats_melted$type)){
     plots[[dtype]] <-
         ggplot(data=dtype_df, aes(x=tool, y=count, fill=tool)) +
         geom_col() +
-        scale_fill_manual(values=ASM_TOOL_COLORS$notmeth, guide="legend") +
+        scale_fill_manual(values=ASM_TOOL_COLORS$notmeth, guide=NULL) +
         facet_wrap(vars(label), ncol=round(sqrt(length(unique(dtype_df$label)))), scales="free_y") +
         labs(
             # title="",
@@ -44,8 +44,6 @@ for(dtype in unique(stats_melted$type)){
         ) +
         theme_bw() +
         theme(
-            # legend
-            legend.title=element_blank(),
             # grid
             panel.grid=element_blank(),
             # strip
@@ -63,7 +61,7 @@ stats_melted_aro <- aggregate(stats_melted_aro$count, by=list(tool=stats_melted_
 plots[["total"]] <-
     ggplot(data=stats_melted_aro, aes(x=tool, y=x, fill=tool)) +
     geom_col() +
-    scale_fill_manual(values=ASM_TOOL_COLORS$notmeth, guide="legend") +
+    scale_fill_manual(values=ASM_TOOL_COLORS$notmeth, guide=NULL) +
     labs(
         # title="",
         # subtitle="",
@@ -72,8 +70,6 @@ plots[["total"]] <-
     ) +
     theme_bw() +
     theme(
-        # legend
-        legend.title=element_blank(),
         # grid
         panel.grid=element_blank(),
         # strip