如何在 R 中的 ggfortify 中编辑图例

Posted 2023-02-19

【中文标题】如何在 R 中的 ggfortify 中编辑图例

【英文标题】：How to edit legend in ggfortify in R

【发布时间】：2021-12-05 23:23:54

【问题描述】：

我正在使用 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？

【问题讨论】：

我认为应该是colour = 而不是strata

@rawr colour = "Raza" 对我不起作用...color 和 colour 之间有什么不同吗？也许这是我的问题，这不起作用。

【参考方案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")

【讨论】：

它确实有效，但现在我得到了双重传说。我怎么能只保留一个？

@JesúsAsdrúbalMolinaVíquez 当我尝试添加两者时，它给了我一个图例，所以我把它们写成答案。您可以在您的问题中添加双图例情节吗？

@JesúsAsdrúbalMolinaVíquez 我使用survminer::ggsurvplot 添加解决方案。你介意看看吗？