Section 5 Supp Fig1

We do a very similar process also for assembling the supplementary figures.

#empty plot
blankplot <- ggplot() + theme_void()

plots <- align_plots(p40Tiss$plots$p1,p40Tiss$plots$p2,p01RNA,align = 'vh', axis = 'bt')

## Warning: Removed 817 rows containing non-finite values (stat_density).

upper.supp.1 <- plot_grid(plots[[2]],plots[[1]],plots[[3]],nrow=1,rel_widths = c(1,0.5,1.25),
                          labels = c("A","","B"))
bottom.supp.1 <- plot_grid(p01Tiss,p02Tiss,blankplot,rel_widths = c(1.25,1.25,0.5),nrow = 1,
                           labels = c("C","D"))

## Warning: Removed 193 rows containing non-finite values (stat_density).

## Warning: Removed 1590 rows containing non-finite values (stat_density).

supp.1 <- plot_grid(upper.supp.1,bottom.supp.1,nrow = 2)

library(Cairo)
cairo_pdf(file = "../out/figures/FigSupp1/Supp1.pdf",width = 12,height = 6)
supp.1
dev.off()

## png 
##   2

supp.1

# Supp Fig2

pdf(paste("../out/figures/FigSupp2/Supp2_",Sys.Date(),'.pdf',sep = ''),
    width = 11,height = 3.5)
#Change legend
p10RNA <- p10RNA + theme(legend.position = 'top')
#Create columns
#col1
col_1 <- align_plots(blankplot,p10RNA,p30Tiss,align = 'hv',axis = 'lr')
col_1 <- plot_grid(col_1[[1]],col_1[[2]],col_1[[3]],blankplot,ncol = 1,
                   rel_heights = c(0.65,1,1,0.35))
#col2
col_2 <- plot_grid(blankplot,p15RNA,p34Tiss,p28Tiss,ncol = 1)

supp.2 <- plot_grid(col_1,col_2,
                    ncol = 2)