ggplot2-exts.github.io/plotROC.Rmd at master · ggplot2-exts/ggplot2-exts.github.io · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
---
title: "ggplot2 extensions: plotROC"
---

### plotROC
<https://github.com/sachsmc/plotROC>

Most ROC curve plots obscure the cutoff values and inhibit interpretation and comparison of multiple curves. This attempts to address those shortcomings by providing plotting and interactive tools. Functions are provided to generate an interactive ROC curve plot for web use, and print versions

```{r, message=FALSE,warning=FALSE}
# Example from http://sachsmc.github.io/plotROC/
library(ggplot2)
library(plotROC)

# I start by creating an example data set. There are 2 markers,
# one that is moderately predictive and one that is not as predictive.

set.seed(2529)
D.ex <- rbinom(200, size = 1, prob = .5)
M1 <- rnorm(200, mean = D.ex, sd = .65)
M2 <- rnorm(200, mean = D.ex, sd = 1.5)

test <- data.frame(D = D.ex, D.str = c("Healthy", "Ill")[D.ex + 1],
                   M1 = M1, M2 = M2, stringsAsFactors = FALSE)

# The Roc Geom
# Next I use the ggplot function to define the aesthetics, and
# the geom_roc function to add an ROC curve layer.

basicplot <- ggplot(test, aes(d = D, m = M1)) + geom_roc()
basicplot
```