JVS - R1 Improved labels

03_Figures_Simulations.R

@@ -99,7 +99,7 @@ ggplot(data=outp.summary %>%
   facet_grid(corr~inter) + 
   theme_bw() + 
   scale_x_continuous(name="Effect of factor e1 -> trait t1") + 
-  scale_y_continuous(name="Power") + 
+  scale_y_continuous(name="Prop. of significant tests") + 
   theme(panel.grid = element_blank())
 
 ggsave(filename="_pics/Fig2_CorrInte_02March.png", width=6, height=5, device="png", dpi = 300, last_plot())
@@ -169,7 +169,7 @@ outp.summary2 <- outp.summary2 %>%
 fig3 <- ggplot(data=outp.summary2) + 
   geom_line(aes(x=main, y=power, group=trait, col=trait.col)) + 
   scale_x_continuous(name="Effect of factor e1 -> trait t1", n.breaks = 4) + 
-  scale_y_continuous(name="Power") + 
+  scale_y_continuous(name="Prop. of significant tests") + 
   facet_grid(sel.ntraits.lab~ntraits.lab) +
   scale_color_identity(guide = "legend", 
                        labels= hugepalette$trait) +
@@ -239,7 +239,7 @@ ggplot(data=outp.summary %>%
   facet_grid(corr~inter) + 
   theme_bw() + 
   scale_x_continuous(name="Effect of factor e1 -> trait t1") + 
-  scale_y_continuous(name="Power") + 
+  scale_y_continuous(name="Prop. of significant tests") + 
   theme(panel.grid = element_blank())
 
 ggsave(filename="_pics/FigS4_Extra_CorrInte_08Jul20.png", width=6, height=5, device="png", dpi = 300, last_plot())