R"；停止“；对角线处

在获得了一项研究的帮助后，我开始“手动”复制结果，并生成一条相同的ROC曲线

这几乎奏效了，除了两个细节。第一，我无法更改左侧绘图上的

y轴

的限制；第二，曲线图右侧的AUC填充在对角线处停止：

左图的代码源于对前面问题的回答，但抑制了所有先前的数据格式，它归结为：

plot.roc(data$outcome, data$s100b, 
         auc.polygon = TRUE, 
         auc.polygon.col=rgb(.35,0.31,0.61, alpha = 0.4), 
         auc.polygon.border=rgb(.35,0.31,0.61, 0.4))

右边的代码是：

plot(rock[,6] ~ rock[,7], xlim = rev(range(rock[,7])), type = 'l') 
polygon(rock[,6] ~ rock[,7], xlim=rev(range(rock[,7])), col = 3)
segments(1,0,0,1, col=6)

。。。而

rock

是一个数据框，组合为：

head(rock)
           cut positive negative tru_pos tru_neg      sens     specif
[1,] 0.0000000      113        0      41       0 1.0000000 0.00000000
[2,] 0.1697713      112        1      40       0 0.9756098 0.00000000
[3,] 0.1767962      107        6      40       5 0.9756098 0.06944444
[4,] 0.1840474      104        9      40       8 0.9756098 0.11111111
[5,] 0.1915268      102       11      40      10 0.9756098 0.13888889
[6,] 0.1992360       93       20      37      16 0.9024390 0.22222222

如何使绿色填充对角线下方的下三角形？如果可能的话，我可以再问一个关于将左边的y轴从（-0.5,0.5）减少到（0,1）的问题吗

编辑：

在末尾添加一行零，我生成：

还不错，但是对于右边距上的垂直蓝线…

调用

多边形时缺少点（0，0）

如果在ROC数据上调用它，
polygon
将通过连接曲线的第一个点和最后一个点来简单地关闭形状。它无法知道您希望它通过（0，0），因此您必须明确指定它，例如：

poly <- rbind(rock[,6:7], c(0,0))
polygon(poly, xlim=rev(range(rock[,7])), col = 3)

poly与
rbind
或在生成
rock
时。。。这真的取决于你。对不起，一开始我没听懂。是的，没问题，我确实添加了一行零，但请注意右边距上额外的蓝色垂直线…0，0不是ROC曲线的一部分。我会更新我的答案。