Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("AAL", "OXY"),
                 get = "stock.prices",
                 from = "2016-01-01",
                 to = "2017-01-01")
stocks

## # A tibble: 504 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 AAL    2016-01-04  41.3  41.3  40.3  40.9 12037200     39.1
##  2 AAL    2016-01-05  41.2  41.5  40.0  40.5 10514200     38.7
##  3 AAL    2016-01-06  40.0  41.7  40    41.2 12393800     39.4
##  4 AAL    2016-01-07  41.0  41.5  39.7  40.5 11312900     38.7
##  5 AAL    2016-01-08  40.9  41.4  40.3  40.4  8853100     38.6
##  6 AAL    2016-01-11  40.6  41.2  39.9  41.1 15877500     39.3
##  7 AAL    2016-01-12  41.2  42.4  40.5  42   12636000     40.1
##  8 AAL    2016-01-13  42.2  42.7  39.7  40.1 12718600     38.3
##  9 AAL    2016-01-14  40.2  40.8  38.9  40.5 11756500     38.8
## 10 AAL    2016-01-15  39.0  39.9  38.4  38.8 18924800     37.0
## # … with 494 more rows

Plot stock prices

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