S01.R 780 Bytes
Newer Older
1 2 3 4 5 6 7 8
#!/usr/bin/env Rscript
library(grid)
library(gridSVG)
library(grImport2)
library(grConvert)
library(tidyverse)
library(cowplot)

Kosmas Hench's avatar
Kosmas Hench committed
9 10
convertPicture("../S01/circos.svg",'../S01/circos-cairo.svg')
cir <- gTree(children=gList(pictureGrob(readPicture("../S01/circos-cairo.svg"))))
11 12 13 14 15 16 17 18
GA <- gTree(children=gList(pictureGrob(readPicture("../../0_data/0_img/GA-cairo.svg"))))
HP <- gTree(children=gList(pictureGrob(readPicture("../../0_data/0_img/puella-cairo.svg"))))

p1 <- ggdraw()+
  draw_grob(cir, -.05,-.05,1.1,1.1)+
  draw_grob(GA, 0, .84, .25, .2)+
  draw_grob(HP, 0.75,.83,.25,.2)

k-hench's avatar
k-hench committed
19 20
#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)