Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("NKE", "COKE", "ULTA", "AMZN", "AApl"),
                 get = "stock.prices",
                 from = "2016-01-01")
stocks

## # A tibble: 10,955 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 NKE    2016-01-04  61.1  61.9  60.9  61.5 11626800     55.7
##  2 NKE    2016-01-05  61.7  62.6  61.7  62.4  9220600     56.5
##  3 NKE    2016-01-06  61.3  62.0  61.2  61.5  6551600     55.7
##  4 NKE    2016-01-07  60.4  61.3  59.8  59.8 10881300     54.2
##  5 NKE    2016-01-08  60.1  60.8  58.7  58.9 11191300     53.3
##  6 NKE    2016-01-11  59.0  60.0  58.5  59.5 12825000     53.9
##  7 NKE    2016-01-12  60.3  60.8  59.6  59.9  8292200     54.3
##  8 NKE    2016-01-13  60.5  60.5  58.7  58.8  9944300     53.2
##  9 NKE    2016-01-14  59    59.3  57.3  58.5  9989000     53.0
## 10 NKE    2016-01-15  56.9  58.1  56.6  57.6 12208300     52.1
## # ℹ 10,945 more rows

Plot stock prices

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