R语言画图 | 生存曲线拼图

勉强算是一个小技巧，前面介绍过，survminer 包绘制的生存曲线拼图方法比较特殊，不支持常见的ggplot2拼图包，而是使用自带的arrange_ggsurvplots函数：

library(survminer) 
splots <- list()
splots[[1]] <- Fig1
splots[[2]] <- Fig2
pKMplot <- arrange_ggsurvplots(splots, print = TRUE,  
                               ncol = 2, nrow = 1)#定义行数和列数


但这个拼好的图其实是可以进入常规的ggplot2拼图流程的，例如：

library(patchwork)
pKMplot   p1   p2

即使只有一个pKMplot依然可以这样操作，例如：

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包上下部分的拼接方法到底是啥

），然后新的KMplot也就可以进入常规的ggplot2拼图流程了。

pKMplot3 <- pKMplot$plot   pKMplot$table   plot_layout(ncol = 1,height = c(3,1))     
(pBarplpot   pScatterplot   pKMplot3)   plot_layout(widths = c(1,1.8,2))    

可以发现两种拼接结果中间散点图（pScatterplot）的标题、右侧柱状图的图例与生存曲线的相对高度发生了变化，大家可以思考一下为什么，有助于加深对patchwork拼图的理解。

请点个“赞”和“在看”鼓励一下吧

被炸熟的虾

自己的摸索，发现问题麻烦告诉作者，光速回来改正