blob: 281ab1386efa5fc62e98989da55069826dddbcea (
plain)
1
2
3
4
5
6
7
8
9
10
|
#!/usr/bin/env Rscript
library(ggplot2)
data <- read.csv("figures/roc.csv",header=T)
p <- ggplot(data, aes(x=fpr, y=tpr)) + geom_abline()
#p <- p + geom_label(label=rownames(data) )
p <- p + geom_point(aes(color=rownames(data)))
p <- p + theme(legend.title=element_blank(), legend.position="bottom")
p <- p + expand_limits(x=c(0,1),y=c(0,1))
p <- p + labs(x = "False positive rate", y = "True positive rate")
ggsave("figures/roc.png")
|
