ggplot() +
geom_line(data=Final_UDR_summary, aes(y=pass_rate_IIR, x=year_week, color="blue"),size=1) +
geom_line(data=Final_UDR_summary, aes(y=pass_rate_IQR, x=year_week, color="red"),size=1) +
geom_line(data=Final_UDR_summary, aes(y=pass_rate_DR, x=year_week, color="green"),size=1) +
scale_color_discrete(name="Pass rate name",labels=c("pass_rate_IIR", "pass_rate_IQR", "pass_rate_DR")) +
ggtitle("Plot of pass rate over time") + xlab("Time in interval of weeks") + ylab("Pass Rates")
This is producing a graph but the color of the line is off from the data and it definitely doesn't match the legend which is automatically generated.