Prerequisites
require(ggplot2)
require(readxl)
Load Data
data = read_xlsx("Difficulty_CSE_graphs.xlsx")
data = data[1:20,]
Plot
DeltaSSacq
ggplot(data = data, aes(x = `% Change of AURC`, y = ΔSSacq, color = color)) + geom_hline(yintercept=0, linetype="dashed", color = "gray") + geom_vline(xintercept=100, linetype="dashed", color = "gray")+ geom_point(show.legend = FALSE, size = 3) + theme_classic() + theme(text = element_text(size = 20)) + ylab(expression(paste(Delta,"SSacq"))) + geom_smooth(method = "lm", se = FALSE, show.legend = F) + xlab("% Change AURC (Post/Pre*100)")
DeltaMPret
ggplot(data = data, aes(x = `% Change of AURC`, y = ΔSSret, color = color)) + geom_hline(yintercept=0, linetype="dashed", color = "gray") + geom_vline(xintercept=100, linetype="dashed", color = "gray")+ geom_point(show.legend = FALSE, size = 3) + theme_classic() + theme(text = element_text(size = 20)) + ylab(expression(paste(Delta,"SSacq"))) + geom_smooth(method = "lm", se = FALSE, show.legend = F) + xlab("% Change AURC (Post/Pre*100)")