用轴限制绘制 ROC 问题。R 绘图

Question

嗯，我一直在尝试以特定的方式用我的 ROCS 制作一个情节，以便它与我的同事正在做的出版物的风格相匹配。

但每次我做我的 ROCS 时，我什至无法设法减少我的轴（我在 xlim 中尝试了几次更改），也没有获得图形的“盒状”边框。我尝试按照这些教程进行操作

https://www.youtube.com/watch?v=qcvAqAH60Yw https://rdrr.io/cran/pROC/man/ggroc.html

但我没有得到任何东西，并且 ggroc 拒绝工作，说我的尺寸不正确（即使页面提供了示例）。

我刚刚用我的数据得到了这个：

但是如果我将 xlim 更改为 0,1

不起作用。我已经尝试了几种组合。

有任何想法吗？

为了提供一些代码，让我们使用 ASAH 数据。

如果我们这样做，我们也会在 pROC 中的绘图中遇到同样的问题。

你能帮我这个尊敬的堆栈社区吗？编辑：到目前为止，一切顺利。但我仍然有轴的问题，我希望它们作为我发布的第一张图像作为参考开始。

有了 ggplot2，我想我可以做到这一点，不过，感谢提供的答案。

Answer 1

library(ggplot2)
library(pROC)

#some data
data(aSAH)

# store roc object 
roc.ob <- roc(outcome ~ s100b, aSAH)

ggroc(roc.ob, legacy.axes = T) +
geom_abline(slope = 1 ,intercept = 0) + # add identity line
theme(
panel.background = element_blank(), 
axis.title.x = element_text(size =18, face = 'bold'),
axis.title.y = element_text(size =18, face = 'bold'),
panel.border = element_rect(size = 2, fill = NA), 
axis.text.x = element_text(size = 14, face ='bold'),
axis.text.y = element_text(size = 14, face ='bold')) +
xlab('100% - Specificity') +
ylab('100% - Sensitivity') +
scale_x_continuous(breaks = seq(0,1,0.25), labels = seq(0,1,0.25) * 100) + 
scale_y_continuous(breaks = seq(0,1,0.25), labels = seq(0,1,0.25) * 100)