3

有没有一种简洁的方法来删除由创建的图例中的变量名称ggsurvplot？例子：

library(survival)
library(survminer)

set.seed(123)
df=data.frame(gender=c(rep("male", 10), rep("female", 10)), value=c(rnorm(10,mean = 2), rnorm(10,mean = 3)))
fit = surv_fit(Surv(value) ~ gender, data = df)
p = ggsurvplot(fit, data = df,  surv.median.line = "none")

在此处输入图像描述

我想要的是从图例中删除“性别”一词，如下图所示。我可以通过手动设置图例标签来实现这一点：

p = ggsurvplot(fit, data = df,  surv.median.line = "none", legend.labs = c("male", "female"))

但是有更好的方法吗？

编辑：当我手动分配性别（2.情节）时，我不小心交换了男性和女性，这表明这种方法有多么危险。

在此处输入图像描述

4

3 回答 3

4

破解stratawith gsub。

names(fit$strata) <- gsub("gender=", "", names(fit$strata))
ggsurvplot(fit, data=df, surv.median.line="none")

在此处输入图像描述

于 2020-05-12T09:06:03.253 回答
3

为了避免交换图例标签的错误，请在 ggsurvplot 函数中使用此选项：legend.labs = levels(df$gender)

于 2020-06-17T15:52:11.993 回答
0

你可以简单地改变的属性strata

attr(fit$strata,'names') <- c('female', 'male')

然后制作情节

p = ggsurvplot(fit, surv.median.line = "none")
于 2020-05-12T09:15:33.037 回答