stocks <- tq_get(c("NVDA", "DELL", "DIS"), get = "stock.prices", from = "2016-01-01")
stocks %>% ggplot(aes(x = date, y = adjusted, color = symbol)) + geom_line()