Stocks

Data - Investing

Author

François Geerolf

Tesla, Apple

Code 
stocks_USA %>%
  filter(symbol %in% c("TSLA", "AAPL"),
         Date >= as.Date("2019-01-01")) %>%
  ggplot + geom_line(aes(x = Date, y = Close, color = symbol)) + 
  theme_minimal() + xlab("") + ylab("") +
  scale_x_date(labels = date_format("%m-%y"),
               breaks = "2 months") +
  scale_y_log10(breaks = c(seq(0, 100, 10), seq(0, 20000, 50))) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.2, 0.85),
        legend.title = element_blank())