diff --git a/03_Figures_Simulations.R b/03_Figures_Simulations.R index 15e9c74a30c64bd466eeead09d7f10e0e06644f4..33c62e6e9d18b34037eef07b13b9ec44cc4e80e7 100644 --- a/03_Figures_Simulations.R +++ b/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())