改变R卡普兰梅耶图中的符号颜色？

Question

可能是一个愚蠢的问题，但是如何在kaplan meier情节中改变符号aka标记颜色？我知道lines.survfit可以选择更改实际的标记符号，但显然不是符号的颜色（只是行的颜色）

我尝试使用line（）或points（）手动添加标记，并使用pch和col更改这些标记的颜色和符号。但是标记不完整;并非所有审查事件都有使用该方法的标记。

有谁知道如何解决这个问题？

Answer 1

无法弄清楚问题可能是什么......似乎按预期工作：

 #Example from help page ("works")

fit <- survfit(Surv(time, status==2) ~ sex, pbc,subset=1:312)
 plot(fit, mark.time=FALSE, xscale=365.25,
         xlab='Years', ylab='Survival')
 lines(fit[1], lwd=2, col="black", xscale=365.24)    
 points(fit[1], lwd=2, col="red", xscale=365.24)

需要一个带有数据和代码的反例....