The code I use right now:
Excesstesla.df %>% ggplot(aes(x = Date, y = Excess.return.Tesla))+ geom_line()+ ggtitle("Excess Return Tesla")+