Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("TM", "SBUX", "AEO", "BBWI"),
                 get = "stock.prices",
                 from = "2016-01-01",
                 to = "2017-01-01")
stocks

## # A tibble: 1,008 × 8
##    symbol date        open  high   low close volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>  <dbl>    <dbl>
##  1 TM     2016-01-04  122.  122.  120.  121. 413500     117.
##  2 TM     2016-01-05  122.  122.  120.  121. 306400     117.
##  3 TM     2016-01-06  119.  119.  118.  118. 277600     114.
##  4 TM     2016-01-07  116.  117.  115.  116. 407500     112.
##  5 TM     2016-01-08  116.  117.  113.  113. 635800     109.
##  6 TM     2016-01-11  114.  115.  113.  115. 511500     111.
##  7 TM     2016-01-12  117.  117.  114.  116. 341200     112.
##  8 TM     2016-01-13  117.  117.  115.  115. 345800     111.
##  9 TM     2016-01-14  115.  117.  114.  116. 354100     112.
## 10 TM     2016-01-15  114.  114.  112.  113. 637000     109.
## # ℹ 998 more rows

Plot stock prices

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