Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("TSM", "SNDK", "NVDA"),
                 get = "stock.prices",
                 from = "2025-01-01",
                 to = "2026-09-08")
stocks

## # A tibble: 1,232 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 TSM    2025-01-02  197   204.  197.  202. 10951400     198.
##  2 TSM    2025-01-03  204.  209.  204.  209. 10261900     205.
##  3 TSM    2025-01-06  219.  222.  216.  220. 24339900     216.
##  4 TSM    2025-01-07  221.  221.  211.  211. 17010000     208.
##  5 TSM    2025-01-08  210.  210.  206.  207. 13262700     203.
##  6 TSM    2025-01-10  208.  210.  203.  208. 17265200     205.
##  7 TSM    2025-01-13  201.  204.  200.  201. 16612400     198.
##  8 TSM    2025-01-14  205.  206.  198.  201. 14182900     198.
##  9 TSM    2025-01-15  202.  209.  199.  207. 18286500     203.
## 10 TSM    2025-01-16  219.  222.  213.  215. 38539600     211.
## # ℹ 1,222 more rows

Plot stock prices

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