In shbrief/GenomicSuperSignaturePaper: Reproduce GenomicSuperSignature paper

knitr::opts_chunk$set(
  comment = "#>", collapse = TRUE, message = FALSE, warning = FALSE, eval=FALSE
)

if (!"pathwork" %in% installed.packages())
    devtools::install_github("thomasp85/patchwork")

suppressPackageStartupMessages({
  library(patchwork)
  library(pdftools)
})

plot1 <- readRDS("SLE-WB/outputs/neutrophil_count.rds")
plot2 <- readRDS("SLE-WB/outputs/neutrophil_estimate.rds")
plot3 <- readRDS("NARES/outputs/nares_neutrophil.rds")

plot_all <- plot1 | plot2 | plot3
plot_all

plot_all <- ggpubr::ggarrange(plot1, plot2, plot3, 
                              labels = c("A", "B", "C"), 
                              font.label = list(size = 20),
                              ncol = 3)
plot_all

png("multiPLIER_Fig3.png", width = 1100, height = 380)
plot_all
dev.off()

plot_all <- ggpubr::ggarrange(plot2, plot3, 
                              labels = c("A", "B"), 
                              font.label = list(size = 20),
                              ncol = 2)

png("neutrophil.png", width = 735, height = 380)
plot_all
dev.off()