Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("NVDA", "CAT" , "META" , "GOOGL"),
                 get = "stock.prices",
                 from = "2016-01-01")
stocks

## # A tibble: 10,740 × 8
##    symbol date        open  high   low close    volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>     <dbl>    <dbl>
##  1 NVDA   2016-01-04 0.807 0.814 0.801 0.809 358076000    0.789
##  2 NVDA   2016-01-05 0.825 0.836 0.812 0.822 490272000    0.801
##  3 NVDA   2016-01-06 0.809 0.812 0.779 0.788 449344000    0.768
##  4 NVDA   2016-01-07 0.768 0.774 0.747 0.757 645304000    0.738
##  5 NVDA   2016-01-08 0.767 0.767 0.739 0.741 398472000    0.722
##  6 NVDA   2016-01-11 0.742 0.747 0.729 0.742 409372000    0.723
##  7 NVDA   2016-01-12 0.755 0.766 0.749 0.754 469356000    0.735
##  8 NVDA   2016-01-13 0.760 0.765 0.731 0.732 481672000    0.713
##  9 NVDA   2016-01-14 0.716 0.725 0.696 0.717 600236000    0.698
## 10 NVDA   2016-01-15 0.688 0.696 0.666 0.678 841452000    0.660
## # ℹ 10,730 more rows

Plot stock prices

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