修改'survrec'包中的图形

Question

我是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)

Answer 1

使用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))

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

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

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