Commit 79ce4b8c authored by k-hench's avatar k-hench

figure update

parent 032ea88e
......@@ -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)
......@@ -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)
......@@ -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')
......@@ -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
......@@ -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)
......@@ -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)
......@@ -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)
......@@ -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)
......@@ -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)
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment