range_ggsurvplots中的常见图例

时间:2019-07-19 05:31:34

标签: r plot legend

我正在尝试使用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)

enter image description here

如您所见,图例未合并。每列都有自己的图例。

我想把它结合起来。但是,使用cowplot包(如ggarrange函数)的常用方法无效。有更好的解决方案吗?

1 个答案:

答案 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 = "")