Import stock prices

stocks <- tq_get(c("NKE", "AAPL"),
                 get = "stock.prices",
                 from = "2024-01-01",
                 to = "2025-01-01")
stocks
## # A tibble: 504 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 NKE    2024-01-02  108.  108.  106.  107.  9326600     99.7
##  2 NKE    2024-01-03  106.  107.  104   104. 10573700     97.4
##  3 NKE    2024-01-04  102.  104.  102.  102. 10420600     95.7
##  4 NKE    2024-01-05  102.  104.  102.  102.  8044500     95.5
##  5 NKE    2024-01-08  102.  104.  102.  104.  9414200     97.0
##  6 NKE    2024-01-09  103.  103.  102.  103.  7759500     96.1
##  7 NKE    2024-01-10  103.  104.  102.  104.  6784700     97.1
##  8 NKE    2024-01-11  104.  106.  104.  106.  9537700     99.1
##  9 NKE    2024-01-12  106   106.  105.  105.  6680900     98.3
## 10 NKE    2024-01-16  104.  104.  101.  102. 10547900     95.2
## # ℹ 494 more rows

Plot stock prices

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