Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("MSFT", "COKE", "DIS"),
                 get = "stock.prices",
                 from = "2019-01-01",
                 to = "2020-01-01")
stocks

## # A tibble: 756 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 MSFT   2019-01-02  99.6  102.  98.9 101.  35329300     96.2
##  2 MSFT   2019-01-03 100.   100.  97.2  97.4 42579100     92.7
##  3 MSFT   2019-01-04  99.7  103.  98.9 102.  44060600     97.0
##  4 MSFT   2019-01-07 102.   103. 101.  102.  35656100     97.1
##  5 MSFT   2019-01-08 103.   104. 102.  103.  31514400     97.8
##  6 MSFT   2019-01-09 104.   105. 103.  104.  32280800     99.2
##  7 MSFT   2019-01-10 103.   104. 102.  104.  30067600     98.6
##  8 MSFT   2019-01-11 103.   103. 102.  103.  28314200     97.8
##  9 MSFT   2019-01-14 102.   103. 101.  102.  28437100     97.1
## 10 MSFT   2019-01-15 103.   105. 102.  105.  31587600     99.9
## # ℹ 746 more rows

Plot stock prices

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