#!/usr/bin/env Rscript
library(ggplot2)
args = commandArgs(trailingOnly=TRUE)

data = read.csv(args[1],header=T)
model_labels = factor(data$model, levels = c("LAZAR-HC", "LAZAR-ALL", "RF", "LR-sgd", "LR-scikit", "NN", "SVM"))
descriptor_labels = factor(data$descriptor, levels = c("MP2D", "CDK"))

colors = c(
"LAZAR-HC" =  "#0072B2",
"LAZAR-ALL" = "#56B4E9",
"RF" =        "#009E73",
"LR-sgd" =        "#F0E442",
"LR-scikit" =       "#D55E00",
"NN" =        "#CC79A7",
"SVM" =       "#E69F00"
)

ggplot(data,aes(fpr, tpr, color = model_labels, shape = descriptor_labels)) +
  geom_point(size = 2.5) +
  geom_abline() +
  expand_limits(x=c(0,1),y=c(0,1)) +
  labs(x = "False positive rate", y = "True positive rate") +
  scale_color_manual(values = colors) +
  theme_minimal() +
  theme(legend.title=element_blank())#,legend.position = "bottom",legend.direction="vertical")#,legend.key.height = 7,legend.key.width=2) +

ggsave(args[2])