Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("MCD", "META"),
                 get = "stock.prices",
                 from = "2016-01-01",
                 to = "2018-01-01")
stocks

## # A tibble: 1,006 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 MCD    2016-01-04  117.  118.  116.  118.  9995000     96.1
##  2 MCD    2016-01-05  117.  119.  117.  119.  6314000     97.4
##  3 MCD    2016-01-06  118   119.  118.  118.  6543800     96.7
##  4 MCD    2016-01-07  117.  118.  116.  116.  7477900     94.5
##  5 MCD    2016-01-08  116.  117.  115.  115.  6103400     94.3
##  6 MCD    2016-01-11  116.  117.  116.  117.  6392400     95.3
##  7 MCD    2016-01-12  117.  118.  116.  117.  5639700     95.9
##  8 MCD    2016-01-13  118.  118.  115.  115.  6986000     94.0
##  9 MCD    2016-01-14  116.  117.  113   117.  9204500     95.3
## 10 MCD    2016-01-15  114.  116.  114.  115. 10201900     94.1
## # ℹ 996 more rows

Plot stock prices

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