Week 2: Apply 1

Import stock prices

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

## # A tibble: 5,696 × 8
##    symbol date        open  high   low close    volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>     <dbl>    <dbl>
##  1 NVDA   2020-01-02  5.97  6.00  5.92  6.00 237536000     5.97
##  2 NVDA   2020-01-03  5.88  5.95  5.85  5.90 205384000     5.88
##  3 NVDA   2020-01-06  5.81  5.93  5.78  5.93 262636000     5.90
##  4 NVDA   2020-01-07  5.95  6.04  5.91  6.00 314856000     5.97
##  5 NVDA   2020-01-08  5.99  6.05  5.95  6.01 277108000     5.98
##  6 NVDA   2020-01-09  6.10  6.15  6.02  6.08 255112000     6.05
##  7 NVDA   2020-01-10  6.18  6.21  6.09  6.11 316296000     6.08
##  8 NVDA   2020-01-13  6.19  6.32  6.17  6.30 319840000     6.27
##  9 NVDA   2020-01-14  6.26  6.28  6.17  6.18 359088000     6.16
## 10 NVDA   2020-01-15  6.19  6.22  6.11  6.14 263104000     6.11
## # ℹ 5,686 more rows

Plot stock prices

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