Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("HD", "XOM", "AXP"),
                 get = "stock.prices",
                 from = "2020-01-01",
                 to = "2021-01-01")
stocks

## # A tibble: 759 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 HD     2020-01-02  219.  220.  218.  220. 3935700     206.
##  2 HD     2020-01-03  217.  220.  217.  219. 3423200     206.
##  3 HD     2020-01-06  216.  220   216.  220. 5682800     207.
##  4 HD     2020-01-07  220.  221.  217.  219. 5685400     205.
##  5 HD     2020-01-08  219.  223.  219.  222. 4916200     208.
##  6 HD     2020-01-09  223.  226.  222.  225. 4843600     211.
##  7 HD     2020-01-10  225.  225.  223.  224. 4226600     211.
##  8 HD     2020-01-13  224.  225.  223.  223. 6060900     210.
##  9 HD     2020-01-14  222.  225.  222.  223. 3915100     209.
## 10 HD     2020-01-15  222.  225.  222.  225. 3444300     211.
## # … with 749 more rows

Plot stock prices

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