Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("NVDA", "AMD", "INTC"),
                 get = "stock.prices",
                 from = "2016-01-01",
                 to = "2017-01-01")
stocks

## # A tibble: 756 × 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.790
##  2 NVDA   2016-01-05 0.825 0.836 0.812 0.822 490272000    0.803
##  3 NVDA   2016-01-06 0.809 0.812 0.779 0.788 449344000    0.769
##  4 NVDA   2016-01-07 0.768 0.774 0.747 0.757 645304000    0.739
##  5 NVDA   2016-01-08 0.767 0.767 0.739 0.741 398472000    0.723
##  6 NVDA   2016-01-11 0.742 0.747 0.729 0.742 409372000    0.724
##  7 NVDA   2016-01-12 0.755 0.766 0.749 0.754 469356000    0.736
##  8 NVDA   2016-01-13 0.760 0.765 0.731 0.732 481672000    0.714
##  9 NVDA   2016-01-14 0.716 0.725 0.696 0.717 600236000    0.700
## 10 NVDA   2016-01-15 0.688 0.696 0.666 0.678 841452000    0.662
## # ℹ 746 more rows

Plot stock prices

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