如何在 R/plotROC 中重新调整 ROC 曲线？答案

【问题标题】：How to relevel in ROC curve in R/plotROC?如何在 R/plotROC 中重新调整 ROC 曲线？
【发布时间】：2019-05-18 03:57:19
【问题描述】：

我刚刚开始学习roc 曲线。我正在尝试生成ROC plot，但曲线似乎比平时弯曲的方向错误 - 请参阅附件

你能帮忙扭转曲线，使它向“通常”的方向弯曲吗？

我的数据是

p <- structure(list(t = c(29354L, 7445L, 22309L, 29699L, 29711L, 14765L, 22257L, 
29715L, 29772L, 13320L, 20905L, 12950L, 3400L, 14800L,7400L, 21890L, 19400L, 14800L, 14700L, 22200L, 1688L, 4500L, 8438L, 13500L, 14800L, 
12580L, 12950L, 13320L, 11840L, 13320L, 14800L, 13690L, 11250L, 12210L, 13320L, 13320L, 14800L, 12580L,20720L, 11840L, 14800L, 7030L, 14800L, 
14800L, 8325L, 11100L,10730L, 13690L, 12210L, 14800L), a = c(0L, 1L, 1L, 0L, 0L, 
1L,0L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L,1L, 0L, 0L, 0L, 
0L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 0L,0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 
0L, 0L, 0L)), .Names = c("t","a"), class = "data.frame", row.names = c(NA, 50L))

我使用了以下

library(plotROC)
basicplot <- ggplot(p, aes(d = p$a, m = p$t)) + geom_roc() + theme_bw()
basicplot + style_roc()

额外问题

我使用 Youden's 来确定最佳截止值，即 13410。任何想法如何引起对这一点的特别注意 - 例如通过突出显示一个红点？

【问题讨论】：

标签： roc r ggplot2 data-visualization roc

【解决方案1】：

您可以做两件事，交换您的 1 和 0 名称，或使用 geom_roc(increasing = FALSE)。请参阅PlotROCvignette。这是假设您的模型实际上是以这种方式执行的，并且并不真正具有低灵敏度和高误报率，而您只是在反转它。

basicplot <- ggplot(p, aes(d = a, m = t)) + geom_roc(increasing = FALSE) + theme_bw()
basicplot + style_roc()

【讨论】：