R ggplot2 add a legend

Question

as described, I want to add a legend to my graph.

  nice_plot <-  ggplot() +
geom_line(data = plot_dataframe_SD1, mapping = aes(x = XValues, y = YValues_SD