如何在R的ggfortify中编辑图例

Question

我正在使用carData::Rossi数据来估计生存曲线。这是我用来生成绘图的代码：

library(carData); library(survival)
km1 <- survfit(Surv(week,arrest) ~ race,type = "kaplan-meier",data=Rossi)

library(ggplot2); library(ggfortify)
autoplot(km1) + 
  labs(x="Time", y="Proportion", strata= "Raza") 

我得到的结果是：

​

​

如何将图层标签更改为Race？

Answer 1

您可以同时使用color = "Raza"和fill = "Raza"，而不使用strata = "Raza"。

library(GlobalDeviance)
library(ggfortify)

km1 <- survfit(Surv(week,arrest) ~ race,type = "kaplan-meier",data=Rossi)

autoplot(km1) + 
  labs(x="Time", y="Proportion", color = "Raza", fill = "Raza") 

​

​

我不确定colour = "Raza"是否有效。这对我不起作用。

通过使用survminer::ggsurvplot，

survminer::ggsurvplot(km1, xlab = "Time", ylab = "Proportion", 
                      legend.title = "Raza", conf.int = TRUE, ylim = c(0.65,1),
                      legend = "right", surv.scale = "percent")

​

​