0
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.

enter image description here

LC-datascientist
  • 1,960
  • 1
  • 18
  • 32

0 Answers0