Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("UAL", "AAL", "LUV"),
                 get = "stock.prices",
                 from = "2024-01-01")
stocks

## # A tibble: 1,029 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 UAL    2024-01-02  41.1  41.7  40.6  40.7  6331300     40.7
##  2 UAL    2024-01-03  40.1  40.6  39.4  39.5  9730300     39.5
##  3 UAL    2024-01-04  39.7  40.9  39.6  40.5  6913800     40.5
##  4 UAL    2024-01-05  40.4  42.0  40.3  41.8  7193900     41.8
##  5 UAL    2024-01-08  41.5  43.5  41.4  42.9 13003800     42.9
##  6 UAL    2024-01-09  43.5  44.2  43.1  43.5  9334300     43.5
##  7 UAL    2024-01-10  43.7  44.5  43.4  44.3  8337500     44.3
##  8 UAL    2024-01-11  44.1  44.5  43.4  44.5  6750300     44.5
##  9 UAL    2024-01-12  42.6  42.6  39.8  39.8 26539200     39.8
## 10 UAL    2024-01-16  39.3  39.4  38.1  38.9 13383500     38.9
## # ℹ 1,019 more rows

Plot stock prices

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