Как добавить конкретную точку к кривой 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 (sensitivities = 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 и выше.