Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("AMD", "VOO", "IJR", "NVDA"),
                 get = "stock.prices",
                 from = "2020-01-01")
stocks

## # A tibble: 6,712 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 AMD    2020-01-02  46.9  49.2  46.6  49.1 80331100     49.1
##  2 AMD    2020-01-03  48.0  49.4  47.5  48.6 73127400     48.6
##  3 AMD    2020-01-06  48.0  48.9  47.9  48.4 47934900     48.4
##  4 AMD    2020-01-07  49.3  49.4  48.0  48.2 58061400     48.2
##  5 AMD    2020-01-08  47.8  48.3  47.1  47.8 53767000     47.8
##  6 AMD    2020-01-09  48.9  50.0  48.4  49.0 76512800     49.0
##  7 AMD    2020-01-10  49.3  49.3  48    48.2 44133700     48.2
##  8 AMD    2020-01-13  48.7  48.9  48.2  48.8 34266800     48.8
##  9 AMD    2020-01-14  48.6  49.0  47.9  48.2 38563200     48.2
## 10 AMD    2020-01-15  48.2  49.1  48.1  48.5 40199900     48.5
## # ℹ 6,702 more rows

Plot stock prices

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