绘制具有轴限制的 ROC 问题。 R图

Question

好吧，我一直在尝试以一种特定的方式用我的 ROCS 绘制一个图，以使其与我的同事正在做的出版物的风格相匹配。

但是每次我做我的 ROCS 时，我什至无法减少我的轴，（我在 xlim 中尝试了几个变化），也没有获得图表的 "box-like" 边界。我尝试遵循这些教程

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)

绘制具有轴限制的 ROC 问题。 R图

plotting ROC problems with axes limits. R plots

plot

r

ggplot2

roc