figure update

3_figures/F_scripts/E1.R

@@ -42,6 +42,8 @@ E1 <- plot_grid(NULL,NULL,NULL,NULL,
                      '','','',''),label_size = 10)+
   draw_grob(legGrob, 0.1, 0, .8, 0.04)
 
-ggsave(plot = E1,filename = '../output/E1.pdf',
-       width = 183,height = 155,units = 'mm',device = cairo_pdf)
+#ggsave(plot = E1,filename = '../output/E1.pdf',
+#       width = 183,height = 155,units = 'mm',device = cairo_pdf)
+ggsave(plot = E1,filename = '../output/E1.png',
+       width = 183,height = 155,dpi = 200,units = 'mm')
 #ggsave('ranges_all_label.pdf',width = 183,height = 120,units = 'mm',device = cairo_pdf)

3_figures/F_scripts/F1.R

@@ -204,5 +204,5 @@ F1 <- ggdraw()+
                   y = c(.995,.42,.42),
                   label =letters[1:3])
 
-ggsave(plot = F1,filename = '../output/F1.pdf',width = 183,height = 145,units = 'mm',device = cairo_pdf)
-  
\ No newline at end of file
+#ggsave(plot = F1,filename = '../output/F1.pdf',width = 183,height = 145,units = 'mm',device = cairo_pdf)
+ggsave(plot = F1,filename = '../output/F1.png',width = 183,height = 145,units = 'mm',dpi = 200)

3_figures/F_scripts/F2.R

@@ -162,4 +162,3 @@ F2 <- ggdraw(p1)+
   draw_grob(panGrob, 0.954, boxes$y[3]+.78*yd, .045, .045)
 
 ggsave(plot = F2,filename = '../output/F2.png',width = 183,height = 183,dpi = 200,units = 'mm')
-#ggsave('fst_mac02_weight_99.98.eps',width = 183,height = 183,dpi = 200,units = 'mm')

3_figures/F_scripts/S01.R

@@ -16,4 +16,5 @@ p1 <- ggdraw()+
   draw_grob(GA, 0, .84, .25, .2)+
   draw_grob(HP, 0.75,.83,.25,.2)
 
-ggsave(plot = p1,filename = '../output/S01.pdf',width = 183,height = 183,units = 'mm',device = cairo_pdf)
+#ggsave(plot = p1,filename = '../output/S01.pdf',width = 183,height = 183,units = 'mm',device = cairo_pdf)
+ggsave(plot = p1,filename = '../output/S01.png',width = 183,height = 183,units = 'mm',dpi = 200)
\ No newline at end of file

3_figures/F_scripts/S02.R

@@ -96,5 +96,6 @@ S02 <- ggdraw()+
   draw_grob(honGrob, labX-.0225, boxes$y[2]+.84*yd+.07, .045, .045)+
   draw_grob(panGrob, labX-.0225, boxes$y[1]+.84*yd+.07, .045, .045)
 
-ggsave(plot = S02,filename = '../output/S02.pdf',width = 183,height = 235,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S02,filename = '../output/S02.pdf',width = 183,height = 235,units = 'mm',device = cairo_pdf)
+ggsave(plot = S02,filename = '../output/S02.png',width = 183,height = 235,units = 'mm',dpi = 200)
 

3_figures/F_scripts/S05.R

@@ -160,4 +160,5 @@ S05 <- ggdraw()+
   draw_grob(legGrob, 0.2, 0, 0.8, 0.17)+
   draw_plot_label(x=c(0,.6),y=c(.99,.99),label = c('a','b'))
 
-ggsave(plot = S05, filename = '../output/S05.pdf',width=183,height=90,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S05, filename = '../output/S05.pdf',width=183,height=90,units = 'mm',device = cairo_pdf)
+ggsave(plot = S05, filename = '../output/S05.png',width=183,height=90,units = 'mm',dpi = 200)

3_figures/F_scripts/S07.R

@@ -58,6 +58,10 @@ S07c <- ggdraw()+
   draw_plot(p3,0,.05,1,.95)+
   draw_plot(legGrob,0,0,1,.05)
 
-ggsave(plot = S07a,filename = '../output/S07a.pdf',width = 180,height = 247,units = 'mm',device = cairo_pdf)
-ggsave(plot = S07b,filename = '../output/S07b.pdf',width = 180,height = 247,units = 'mm',device = cairo_pdf)
-ggsave(plot = S07c,filename = '../output/S07c.pdf',width = 180,height = 247,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S07a,filename = '../output/S07a.pdf',width = 180,height = 247,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S07b,filename = '../output/S07b.pdf',width = 180,height = 247,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S07c,filename = '../output/S07c.pdf',width = 180,height = 247,units = 'mm',device = cairo_pdf)
+
+ggsave(plot = S07a,filename = '../output/S07a.png',width = 180,height = 247,units = 'mm',dpi = 200)
+ggsave(plot = S07b,filename = '../output/S07b.png',width = 180,height = 247,units = 'mm',dpi = 200)
+ggsave(plot = S07c,filename = '../output/S07c.png',width = 180,height = 247,units = 'mm',dpi = 200)

3_figures/F_scripts/S08.R

@@ -54,4 +54,5 @@ S08 <- plot_grid(NULL,NULL,NULL,NULL,
                      '','','',''),label_size = 10)+
   draw_grob(legGrob, 0.1, 0, .8, 0.04)
 
-ggsave(plot = S08,filename = '../output/S08.pdf',width = 183,height = 155,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S08,filename = '../output/S08.pdf',width = 183,height = 155,units = 'mm',device = cairo_pdf)
+ggsave(plot = S08,filename = '../output/S08.png',width = 183,height = 155,units = 'mm',dpi = 200)

3_figures/F_scripts/S12.R

@@ -200,4 +200,5 @@ S12c <- ggplot(data_both,aes(x=RHO,y=WEIGHTED_FST))+
 S12ab <- plot_grid(S12a,S12b,ncol = 1,align = 'v',labels = c('a','b'))
 S12 <- plot_grid(S12ab,NULL,S12c,ncol = 1,rel_heights = c(1,.05,.8),labels = c('','','c'))
 
-ggsave(plot = S12,filename = '../output/S12.pdf',width = 183,height = 220,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S12,filename = '../output/S12.pdf',width = 183,height = 220,units = 'mm',device = cairo_pdf)
+ggsave(plot = S12,filename = '../output/S12.png',width = 183,height = 220,units = 'mm',dpi = 200)

3_figures/F_scripts/S15.R

@@ -42,4 +42,5 @@ S15 <- plot_grid(NULL,NULL,NULL,NULL,
                      '','','',''),label_size = 10)+
   draw_grob(legGrob, 0.05, 0, .9, 0.04)
 
-ggsave(plot = S15,filename = '../output/S15.pdf',width = 183,height = 210,units = 'mm',device = cairo_pdf)
+#ggsave(plot = S15,filename = '../output/S15.pdf',width = 183,height = 210,units = 'mm',device = cairo_pdf)
+ggsave(plot = S15,filename = '../output/S15.png',width = 183,height = 210,units = 'mm',dpi = 200)