R：如何在生存图中自动设置不同组的颜色

Question

我正在使用此命令绘制具有8个不同组的数据帧的生存概率：

fit2<-Surv((time=t2$uptimeDay,event=t2$solved,type='right')~t2$cluster)

plot(fit2,conf.int=F,xlim=c(0, 250),mark.time=c(1,50,100,200),mark=c(1,3,4,2,5,7,6,8,9,10),lwd=1,cex=0.7,lty = 1:11,xlab='Time(days)',ylab='Survival Probability')

此处的群集是1到10之间的数字。

我想知道如何使用曲线的键自动设置曲线的颜色和自动图例。

有人可以帮我解决这个问题吗？

Answer 1

我有一个功能，我用于基于ggplot2的Kaplan-Meier曲线，它将为​​您处理颜色和图例。遗憾的是，我还没有以任何合理的方式打包它。但您可以从

下载源代码

https://gist.github.com/nutterb/004ade595ec6932a0c29

关于如何使用它的一些例子

https://gist.github.com/nutterb/fb19644cc18c4e64d12a

Answer 2

通过制作这种＆＃34;自动＆＃34;并不清楚你的意思并希望使用曲线键＃34;但也许你要求曲线的颜色与图例匹配。

png()
  mycols=c("red","blue")
  plot(prio.fit, fill=mycols)
  legend(x="bottomleft", col=mycols, legend=mycols) 
dev.off()

如果您希望将此配对数据集并希望为组指定特定颜色，则需要提供数据集，以便有一些有意义的用作标签，并且更具体地说明所需的着色模式。 / p>