Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("NVDA","AMD","AAPL"),
                 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  8.07  8.14  8.01  8.09 35807600     7.90
##  2 NVDA   2016-01-05  8.24  8.36  8.12  8.22 49027200     8.03
##  3 NVDA   2016-01-06  8.09  8.12  7.79  7.88 44934400     7.70
##  4 NVDA   2016-01-07  7.68  7.74  7.47  7.57 64530400     7.39
##  5 NVDA   2016-01-08  7.67  7.68  7.39  7.41 39847200     7.23
##  6 NVDA   2016-01-11  7.42  7.47  7.29  7.42 40937200     7.25
##  7 NVDA   2016-01-12  7.55  7.66  7.49  7.54 46935600     7.37
##  8 NVDA   2016-01-13  7.60  7.65  7.31  7.32 48167200     7.14
##  9 NVDA   2016-01-14  7.16  7.25  6.96  7.17 60023600     7.00
## 10 NVDA   2016-01-15  6.88  6.96  6.66  6.78 84145200     6.62
## # … with 746 more rows

Plot stock prices

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