绘制分数为R的AUC的2.5％和97.5％

Question

我试图绘制AUC的分位数，这里是我使用的代码：

 Q2.5 = c(0.3782141, 0.5578235, 0.8015502, 0.8191298 ) 
Q97.5 = c(0.3782141, 0.5578235, 0.8015502, 0.8191298 ) 
x  = c(0,3,6,9) 
plot(x,c(51.53,68.82,87.62,88.94), type="l", ylim=c(30,96), ylab="AUC") 
polygon(c(x,rev(x)), c(Q2.5, rev(Q97.5)), col = "gray")

我无法看到预计出现在人物上的影子。 任何建议！