Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("NKE", "ADDYY"),
                 get = "stock.prices",
                 from = "2016-01-01",
                 to = "2017-01-01")
stocks

## # A tibble: 504 × 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.1
##  2 NKE    2016-01-05  61.7  62.6  61.7  62.4  9220600     55.9
##  3 NKE    2016-01-06  61.3  62.0  61.2  61.5  6551600     55.1
##  4 NKE    2016-01-07  60.4  61.3  59.8  59.8 10881300     53.6
##  5 NKE    2016-01-08  60.1  60.8  58.7  58.9 11191300     52.8
##  6 NKE    2016-01-11  59.0  60.0  58.5  59.5 12825000     53.4
##  7 NKE    2016-01-12  60.3  60.8  59.6  59.9  8292200     53.7
##  8 NKE    2016-01-13  60.5  60.5  58.7  58.8  9944300     52.7
##  9 NKE    2016-01-14  59    59.3  57.3  58.5  9989000     52.4
## 10 NKE    2016-01-15  56.9  58.1  56.6  57.6 12208300     51.6
## # ℹ 494 more rows

Plot stock prices

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