不同的线条颜色ROC＆＃34; sp＆＃34;在R中绘制`{Epi}`包

Question

我正在使用R中的Epi包，用于生成ROC曲线和其他测试准确度信息，例如灵敏度和特异性。

包中有一个关于subarachnoid hemorrhage患者结果的数据集。

调用以下函数时：

ROC(form = outcome ~ s100b, data=aSAH, plot="sp" )

由于其相似的灰色，不同的线难以区分。我尝试添加color =c(1,2,3,4)或color.line / line.color但未成功。

library(pROC)
library(Epi)    
data(aSAH)
head(aSAH)
ROC(form = outcome ~ s100b, data=aSAH, plot = "ROC", MX = T)


ROC(form = outcome ~ s100b, data=aSAH, plot="sp" )

我希望不同的线条能够进行颜色编码。

Answer 1

尝试：

res<-ROC(form = outcome ~ s100b, data=aSAH, plot="sp" )
lines(res$res$lr,res$res$spec, type="s", col="red") #specificity
lines(res$res$lr,res$res$sens, type="s", col="green") # sensitivity
lines(res$res$lr,res$res$pvp, type="s", col="orange") # pvp
lines(res$res$lr,res$res$pvn, type="s", col="magenta") # pvn

在捕获结果后基本上覆盖顶部的彩色线条。 或者，修改ROC代码以包含col选项。