How can I add a legend for error bars in ggplot?

Question

I have been trying to amend what I thought was a straightforward legend on my GGPlot for a day now and not making much progress (I have searched extensively on Stackexchange