library(tidyquant)
library(tidyverse)
tickers <- c("AAPL", "MSFT", "GOOG", "AMZN", "TSM", "NVDA")
start_date <- "2024-01-01"
stock_prices <- tq_get(tickers, 
                       from = start_date, 
                       get = "stock.prices")
stock_returns <- stock_prices %>%
  group_by(symbol) %>%
  tq_transmute(select     = adjusted,
               mutate_fun = periodReturn,
               period     = "daily",
               col_rename = "daily_return")
stock_returns %>%
  slice_head(n = 5) %>%
  knitr::kable(caption = "First 5 Daily Returns for Each Stock")
First 5 Daily Returns for Each Stock
symbol date daily_return
AAPL 2024-01-02 0.0000000
AAPL 2024-01-03 -0.0074875
AAPL 2024-01-04 -0.0127002
AAPL 2024-01-05 -0.0040130
AAPL 2024-01-08 0.0241748
AMZN 2024-01-02 0.0000000
AMZN 2024-01-03 -0.0097378
AMZN 2024-01-04 -0.0262679
AMZN 2024-01-05 0.0046344
AMZN 2024-01-08 0.0265767
GOOG 2024-01-02 0.0000000
GOOG 2024-01-03 0.0057322
GOOG 2024-01-04 -0.0165290
GOOG 2024-01-05 -0.0047087
GOOG 2024-01-08 0.0228547
MSFT 2024-01-02 0.0000000
MSFT 2024-01-03 -0.0007281
MSFT 2024-01-04 -0.0071773
MSFT 2024-01-05 -0.0005165
MSFT 2024-01-08 0.0188716
NVDA 2024-01-02 0.0000000
NVDA 2024-01-03 -0.0124358
NVDA 2024-01-04 0.0090187
NVDA 2024-01-05 0.0228967
NVDA 2024-01-08 0.0642810
TSM 2024-01-02 0.0000000
TSM 2024-01-03 -0.0133950
TSM 2024-01-04 -0.0103824
TSM 2024-01-05 0.0048420
TSM 2024-01-08 0.0264030