Update figs folder (#33)

* Updating for capitalization * Updating for capitalization * Updating for size of figures * Updating for proportion isntead of rate
greenelab · Jul 11, 2017 · 668169f · 668169f
1 parent 8d9467c
commit 668169f
Show file tree

Hide file tree

Showing 10 changed files with 5 additions and 5 deletions.
diff --git a/Paper_Figs/f1_boxplots_2.png b/Paper_Figs/f1_boxplots_2.png
diff --git a/Paper_Figs/f1_boxplots_3.png b/Paper_Figs/f1_boxplots_3.png
diff --git a/Paper_Figs/f1_boxplots_4.png b/Paper_Figs/f1_boxplots_4.png
diff --git a/Paper_Figs/f1_boxplots_5.png b/Paper_Figs/f1_boxplots_5.png
diff --git a/Paper_Figs/f1_boxplots_6.png b/Paper_Figs/f1_boxplots_6.png
diff --git a/Paper_Figs/f1_boxplots_7.png b/Paper_Figs/f1_boxplots_7.png
diff --git a/Paper_Figs/f1_boxplots_8.png b/Paper_Figs/f1_boxplots_8.png
diff --git a/Paper_Figs/fnr_boxplots_4.png b/Paper_Figs/fnr_boxplots_4.png
diff --git a/Paper_Figs/fpr_boxplots_4.png b/Paper_Figs/fpr_boxplots_4.png
diff --git a/Scripts/gea_paper_figures.R b/Scripts/gea_paper_figures.R
@@ -53,7 +53,7 @@ plot_f1 <- function(m, a_min, a_max, iterations_df){
     xlab(" ") + scale_fill_discrete(name = "Method", labels = method_names)
 
   figure_name <- file.path("Paper_Figs", paste0("f1_boxplots_", m, ".png"))
-  ggsave(filename = figure_name, plot = p)
+  ggsave(filename = figure_name, plot = p, height = 10, width = 11.5)
 }
 
 # plot F1 for m = 2-8 using either 10% or 100% additional random genes for 
@@ -73,13 +73,13 @@ plot_fnr <- function(m, a_min, a_max, iterations_df){
 
   p <- ggplot(plot_ready, aes(method, fnr)) +
     geom_boxplot(aes(fill = method)) +
-    facet_grid(percent_addit ~ percent_path) + ylab("False Negative Rate") +
+    facet_grid(percent_addit ~ percent_path) + ylab("False Negative Proportion") +
     theme(axis.title.x = element_blank(), axis.text.x = element_blank(), 
           axis.ticks.x = element_blank()) +
     xlab(" ") + scale_fill_discrete(name = "Method", labels = method_names)
 
   figure_name <- file.path("Paper_Figs", paste0("fnr_boxplots_", m, ".png"))
-  ggsave(filename = figure_name, plot = p)
+  ggsave(filename = figure_name, plot = p, height = 10, width = 11.5)
 }   
 
 plot_fnr(4, .1, 1, iterations_df)  
@@ -94,13 +94,13 @@ plot_fpr <- function(m, a_min, a_max, iterations_df){
 
   p <- ggplot(plot_ready, aes(method, fpr)) +
     geom_boxplot(aes(fill = method)) +
-    facet_grid(percent_addit ~ percent_path) + ylab("False Positive Rate") +
+    facet_grid(percent_addit ~ percent_path) + ylab("False Positive Proportion") +
     theme(axis.title.x = element_blank(), axis.text.x = element_blank(), 
           axis.ticks.x = element_blank()) +
     xlab(" ") + scale_fill_discrete(name = "Method", labels = method_names)
 
   figure_name <- file.path("Paper_Figs", paste0("fpr_boxplots_", m, ".png"))
-  ggsave(filename = figure_name, plot = p)
+  ggsave(filename = figure_name, plot = p, height = 10, width = 11.5)
 }  
 
 plot_fpr(4, .1, 1, iterations_df)