Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("HD", "LOW", "WMT"),
                 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 HD     2016-01-04  130.  131.  129.  131.  8050900    109. 
##  2 HD     2016-01-05  131.  132.  130.  130.  5320900    109. 
##  3 HD     2016-01-06  129   130.  129.  129.  8199600    108. 
##  4 HD     2016-01-07  127.  128.  125.  125. 12551000    104. 
##  5 HD     2016-01-08  126.  127.  124.  124.  7104500    103. 
##  6 HD     2016-01-11  125.  126.  124.  126.  6811600    105. 
##  7 HD     2016-01-12  127.  129.  126.  127.  5695700    106. 
##  8 HD     2016-01-13  127.  127.  121.  121.  8932200    101. 
##  9 HD     2016-01-14  121.  122.  118.  120. 13389100     99.7
## 10 HD     2016-01-15  117.  121.  116.  119. 10515000     99.3
## # ℹ 746 more rows

Plot stock prices

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