ggroc и geom_density на одном участке

Question

Я не могу объединить график ggroc и объект ggplot.У меня есть следующие данные с именем results по этой ссылке.

https://www.dropbox.com/s/at2f2zni7s1hnzm/results.csv?dl=0

Код, который у меня есть;

roc <- roc(results$testactual, results$pred)
ggroc(roc) +
ggplot() + 
  geom_density(data = results %>%
                 filter(testactual == 0), aes(pred), color='green') + 
  geom_density(data = results %>%
                 filter(testactual == 1), aes(pred), color='black')

, который возвращает ошибку;

Error: Don't know how to add o to a plot

Я следовал за другими ответами онлайн, и они, кажется, не вписываются в мое решение.Я знаю, что это должно быть что-то, когда roc создает большой roc с 15 элементами и пытается объединить это с сюжетом data.frame.

Answer 1

ggroc вызывает функцию ggplot, поэтому вам не нужно это делать:

roc <- roc(results$testactual, results$pred)
ggroc(roc) +
  geom_density(data = results %>%
                 filter(testactual == 0), aes(pred), color='green') + 
  geom_density(data = results %>%
                 filter(testactual == 1), aes(pred), color='black')