如何向ggroc()曲线添加特定点？

Question

我试图在我的ROC曲线上添加一个特定的点，使用：

g <- ggroc(c.roc, size = 0.8) + 
  labs(x="specificities", y = "sensitivities")

g  + ggplot(tibble(sensitivities=3.9558923, specificities=0.8552395), aes(x=sensitivities, y=specificities)) +
  geom_point(colour="blue")

但不起作用：

错误:不知道如何在绘图中添加ggplot(tibble(灵敏度= 3.9558923，特异性= 0.8552395)，aes(x =灵敏度，y=特异性))

Answer 1

您所做的是ggroc() + ggplot() + geom_point()，本质上是ggplot() + ggplot() + geom_point()。就像ggplot一样，ggroc需要一个geom层，而不是另一个数据层。要添加新数据，可以将其传递到您的geom中。这应该是可行的：

g <- ggroc(c.roc, size = 0.8) +
    labs(x="specificities", y = "sensitivities")

# You don't need ggplot. Just pass data into your geom.
g + geom_point(data = tibble(sensitivities=0.9558923, # Should be less than one.
                             specificities=0.8552395
                             ),
               mapping = aes(x=sensitivities, y=specificities),
               colour = "blue")

只需确保colour在aes之外。还请注意，ROC x和y标度为0到1，这意味着sensitivities = 3.9558923将把点放在绘图区域之外。我把它改到0.9558923以上了。