r - 如何在 R 中的 ggfortify 中编辑图例
问题描述
我正在使用 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?
解决方案
而不是strata = "Raza"
,您同时使用color = "Raza"
和fill = "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")
推荐阅读
- leaflet - Geodjango OGR 失败的问题 - GDAL 异常
- unix - 用增量替换文件中的行中的文本
- reactjs - React async await 跳过第一个响应
- java - Kubernetes 无法通过 Github 从 Docker hub 部署简单镜像
- c# - 在鼠标坐标处将预制件实例化为画布
- python - SQL:您如何在仅参考给定年份的月份的情况下每月平均数据?
- pandas - 根据时间删除行
- mysql - MySQL存储过程使用参数变量消耗1:8倍
- kubernetes - Kubernetes HPA 无法从 Stackdriver 检测到成功发布的自定义指标
- angular - Angular - GraphQL - 突变(大对象)