我正在尝试使用arrange_ggsurvplots
合并多个生存图。每个图都是通过ggsurvplot
函数绘制的。他们大多数都运作良好。但是,很难合并图例。
以survminer
包中的示例为例。
https://rpkgs.datanovia.com/survminer/reference/arrange_ggsurvplots.html
# Fit survival curves
require("survival")
fit<- survfit(Surv(time, status) ~ sex, data = lung)
# List of ggsurvplots
require("survminer")
splots <- list()
splots[[1]] <- ggsurvplot(fit, data = lung, risk.table = TRUE, ggtheme = theme_minimal())
splots[[2]] <- ggsurvplot(fit, data = lung, risk.table = TRUE, ggtheme = theme_grey())
# Arrange multiple ggsurvplots and print the output
arrange_ggsurvplots(splots, print = TRUE,
ncol = 2, nrow = 1, risk.table.height = 0.4)
如您所见,图例未合并。每列都有自己的图例。
我想把它结合起来。但是,使用cowplot
包(如ggarrange
函数)的常用方法无效。有更好的解决方案吗?
答案 0 :(得分:-1)
只需添加
+ labs(y = "")
之后
splots[[2]] <- ggsurvplot(fit,
data = lung, risk.table = TRUE, ggtheme = theme_grey())
应该能够解决该问题。
splots[[2]] <- ggsurvplot(fit, data = lung, risk.table = TRUE, ggtheme = theme_grey()) + labs(y = "")