Here is code:
ggplot(exchangeGBP) + aes(Date, `GBP/EUR`) + geom_line(color = "deepskyblue") + geom_smooth(method = "lm")