Import stock prices

stocks <- tq_get(c("GM", "VRTX", "MSFT"))
                 get = "stock.prices"
                 from = "2016-01-01"

Plot stock prices

stocks %>%
    
    ggplot(aes(x = date, y = adjusted, color = symbol)) +
    geom_line()