library(survminer)
splots <- list()
splots[[1]] <- Fig1
splots[[2]] <- Fig2
pKMplot <- arrange_ggsurvplots(splots, print = TRUE,
ncol = 2, nrow = 1)#定义行数和列数
library(patchwork)
pKMplot p1 p2
splots[[1]] <- pKMplot
pKMplot2 <- arrange_ggsurvplots(splots, print = TRUE,
ncol = 1, nrow = 1)
library(patchwork)
(pBarplpot pScatterplot pKMplot2) plot_layout(widths = c(1,1.5,2))
其实survminer包绘制的生存曲线每个部分都是一个独立的ggplot2格式图,所以很多时候为了方便,我个人会提取KMplot的上下部分(生存曲线与风险表)重新拼图,使其符合ggplot2格式(因为咱也不知道survminer包上下部分的拼接方法到底是啥
pKMplot3 <- pKMplot$plot pKMplot$table plot_layout(ncol = 1,height = c(3,1))
(pBarplpot pScatterplot pKMplot3) plot_layout(widths = c(1,1.8,2))
联系客服