Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("NVDA", "AMD", "MSFT"),
                 get = "stock.prices",
                 from = "2019-09-10",
                 to = "2023-09-10")
stocks

## # A tibble: 3,021 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 NVDA   2019-09-10  44.8  46.1  44.7  45.8 35281200     45.6
##  2 NVDA   2019-09-11  45.9  46.6  45.7  46.1 36151200     45.9
##  3 NVDA   2019-09-12  46.5  47.1  46.0  46.1 32784000     45.9
##  4 NVDA   2019-09-13  45.4  45.8  45.0  45.5 32459200     45.3
##  5 NVDA   2019-09-16  44.7  45.4  44.6  45.1 23183200     44.8
##  6 NVDA   2019-09-17  45.1  45.3  44.7  45.3 22304800     45.1
##  7 NVDA   2019-09-18  45.2  45.4  44.1  45.0 25815200     44.8
##  8 NVDA   2019-09-19  45.1  45.2  44.1  44.2 24547600     44.0
##  9 NVDA   2019-09-20  44.2  44.5  43.1  43.2 35024400     43.0
## 10 NVDA   2019-09-23  43.2  44.2  43.1  43.7 24971200     43.5
## # ℹ 3,011 more rows

Plot stock prices

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