Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("HIMS", "PFE", "MRK"),
                 get = "stock.prices",
                 from = "2022-01-01",
                 to = "2025-01-01")
stocks

## # A tibble: 2,259 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 HIMS   2022-01-03  6.58  6.80  6.54  6.75 1615200     6.75
##  2 HIMS   2022-01-04  6.80  6.89  6.38  6.5  1796600     6.5 
##  3 HIMS   2022-01-05  6.38  6.49  5.85  5.88 2813100     5.88
##  4 HIMS   2022-01-06  5.91  5.97  5.60  5.73 2617700     5.73
##  5 HIMS   2022-01-07  5.71  5.89  5.67  5.74 1628400     5.74
##  6 HIMS   2022-01-10  5.61  5.61  5.25  5.58 2581200     5.58
##  7 HIMS   2022-01-11  5.58  5.84  5.54  5.77 1715300     5.77
##  8 HIMS   2022-01-12  5.75  5.91  5.55  5.58 1356600     5.58
##  9 HIMS   2022-01-13  5.64  5.65  5.22  5.25 1710600     5.25
## 10 HIMS   2022-01-14  5.15  5.32  5.10  5.29 1759900     5.29
## # ℹ 2,249 more rows

Plot stock prices

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