在R kaplan-meier图中更改符号颜色？

这可能是一个愚蠢的问题，但在卡普兰·迈耶的情节中，人们会如何改变符号aka mark的颜色呢？我知道线条。survfit可以选择更改实际的标记符号，但显然不是符号的颜色（仅线条的颜色）

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

---

有人知道怎么做吗？

想不出问题出在哪里。。。似乎工作如预期：

 #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)

#帮助页面中的示例（“工作”）
安装Hmmm runnign，使线条变红，符号边框变红。然而，我试图做的是使符号变成纯红色，线条保持另一种颜色，比如说黑色。编辑：没关系，你的解决方案行得通，我不小心跑了另一行。非常感谢你！如果这不是你的愿望，那么解决办法似乎显而易见。更改颜色参数。