Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("SBUX", "KDP", "KO", "PEP"),
                 get = "stock.prices",
                 from = "2021-01-01")
stocks

## # A tibble: 1,688 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 SBUX   2021-01-04  108.  108.  102.  103. 8041500     99.6
##  2 SBUX   2021-01-05  103.  104.  103.  103. 5721900    100. 
##  3 SBUX   2021-01-06  103.  105.  103.  104. 5017200    101. 
##  4 SBUX   2021-01-07  104.  105.  103.  103. 5057000     99.9
##  5 SBUX   2021-01-08  104.  106.  103.  106. 5869700    102. 
##  6 SBUX   2021-01-11  105.  106.  104.  105. 4257400    101. 
##  7 SBUX   2021-01-12  104.  104.  102.  103. 4332600     99.4
##  8 SBUX   2021-01-13  102.  103.  101.  103. 4804500     99.4
##  9 SBUX   2021-01-14  104.  104.  102.  102. 4528300     98.4
## 10 SBUX   2021-01-15  101.  103.  101.  102. 5522900     98.9
## # … with 1,678 more rows

Plot stock prices

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