3

我绘制了一个图表,并想自定义此图的图例。我将感谢所有帮助。谢谢!

library("survival")
library("ggplot2")
library("ggfortify")

data(lung)
lung$SurvObj <- with(lung, Surv(time, status == 2))
km.by.sex <- survfit(SurvObj ~ sex, data = lung, conf.type = "log-log")

gender.plot <- autoplot(km.by.sex)
gender.plot <- gender.plot + 
  ggtitle("Gender based Survival (1=male, 2=female)") +
  labs(x = "Time", y = "Survival Probability") 
print(gender.plot)
4

1 回答 1

5

我在自定义 ggfortify 图时遇到了类似的问题 - 我不确定这个问题在问什么,但我假设您想从ggfortify's自定义图例autoplot。为了快速回答这个问题 -autoplot可以使用典型ggplot的自定义函数进行操作,因为它是一个ggplot对象。这应该是修改图例的方法,autoplot没有自己的库。有关更多信息,请参阅此已关闭问题

我使用此处找到的生存分析示例稍微编辑了您的问题以包含可重现的代码。自定义绘图的示例(重命名图例和颜色标签):

gender.plot <- autoplot(km.by.sex)
gender.plot <- gender.plot + 
  ggtitle("Gender based Survival") +
  labs(x = "Time", y = "Survival Probability") +
  guides(fill=FALSE) +
  labs(colour = "Gender") +
  scale_color_manual(labels = c("Male", "Female"), values = c(1, 2))
print(gender.plot)

在此处输入图像描述

于 2018-05-23T19:44:46.070 回答