Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("MSFT", "GOOG", "JPM"),
                 get = "stock.prices",
                 from = "2016-01-01")
stocks

## # A tibble: 7,290 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 MSFT   2016-01-04  54.3  54.8  53.4  54.8 53778000     48.1
##  2 MSFT   2016-01-05  54.9  55.4  54.5  55.0 34079700     48.3
##  3 MSFT   2016-01-06  54.3  54.4  53.6  54.0 39518900     47.4
##  4 MSFT   2016-01-07  52.7  53.5  52.1  52.2 56564900     45.8
##  5 MSFT   2016-01-08  52.4  53.3  52.2  52.3 48754000     45.9
##  6 MSFT   2016-01-11  52.5  52.8  51.5  52.3 36943800     45.9
##  7 MSFT   2016-01-12  52.8  53.1  52.1  52.8 36095500     46.3
##  8 MSFT   2016-01-13  53.8  54.1  51.3  51.6 66883600     45.3
##  9 MSFT   2016-01-14  52    53.4  51.6  53.1 52381900     46.6
## 10 MSFT   2016-01-15  51.3  52.0  50.3  51.0 71820700     44.7
## # ℹ 7,280 more rows

Plot stock prices

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