修改'survrec'包中的图形

时间:2015-10-25 13:49:35

标签: r survival-analysis

我是R的新手,我正在使用'survrec'包。我想修改多个组的图形中的颜色和线条。该软件包包括以下示例:

data(colon)
# fit a pena-strawderman-hollander and plot it
fit<-survfitr(Survr(hc,time,event)~as.factor(dukes),data=colon,type="pena")
plot(fit,ylim=c(0,1),xlim=c(0,2000))

像在其他图表中使用参数“col”或“lty”或“survfit” - 对象不起作用。

plot(fit,ylim=c(0,1),xlim=c(0,2000), col=c("red", "blue", "orange"), lty=3)

1 个答案:

答案 0 :(得分:2)

使用palette影响基础图的调色板,par修改其他参数默认值:

library(survrec)
library(viridis)

data(colon)
fit<-survfitr(Survr(hc,time,event)~as.factor(dukes),data=colon,type="pena")

palette(viridis(3))
plot(fit,ylim=c(0,1),xlim=c(0,2000))

enter image description here

palette(c("#7f3b08", "#2d004b", "#1b7837"))
plot(fit,ylim=c(0,1),xlim=c(0,2000))

enter image description here

palette(c("red", "blue", "orange"))
par(lty=3)
plot(fit,ylim=c(0,1),xlim=c(0,2000))

enter image description here

不幸的是survrec:::plot.survfitr硬编码lty=2代表上/下行。如果需要,您可以复制该函数并参数化。