Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("XOM", "CVX", "SHEL", "COP"),
                 get = "stock.prices",
                 from = "2016-01-01",
                 to = "2025-01-01")
stocks

## # A tibble: 9,056 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 XOM    2016-01-04  77.5  77.9  76.5  77.5 20400100     50.4
##  2 XOM    2016-01-05  77.2  78.1  76.9  78.1 11993500     50.9
##  3 XOM    2016-01-06  76.6  77.6  76.6  77.5 18826900     50.4
##  4 XOM    2016-01-07  76.1  78.0  75.9  76.2 21263800     49.6
##  5 XOM    2016-01-08  76.3  76.7  74.5  74.7 19033600     48.6
##  6 XOM    2016-01-11  75.0  75.1  72.6  73.7 21353000     48.0
##  7 XOM    2016-01-12  74.1  75.4  73.2  75.2 21864100     49.0
##  8 XOM    2016-01-13  75.8  77.1  74.9  75.7 26052700     49.2
##  9 XOM    2016-01-14  76.2  79.9  75.8  79.1 33806700     51.5
## 10 XOM    2016-01-15  76.3  78.2  76.3  77.6 28342100     50.5
## # ℹ 9,046 more rows

Plot stock prices

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