range_ggsurvplots中的常见图例

Question

我正在尝试使用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函数）的常用方法无效。有更好的解决方案吗？

Answer 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 = "")