R语言for循环执行报错：$运算符对原子向量无效的问题求助

使用quantmod、dplyr等R包处理美股历史数据时，编写了如下代码尝试通过for循环计算20只成分股的日收益率，但运行时持续报错：Error in symbol$symbol.Adjusted : $ operator is invalid for atomic vectors

# Load required libraries
library(quantmod)
library(dplyr)
library(purrr)
library(lmtest)
library(tidyquant)


# Set the start and end date for historical data
end_date <- as.Date("2023-09-18")
start_date <- end_date - 5*365  # 5 years of historical data

# Define the S&P 500 index symbol
sp500 <- "^GSPC"

# Define a list of the 20 biggest stocks
top_20_stocks <- c("AAPL", "MSFT", "AMZN", "GOOGL", "GOOG","TSLA", "JPM", "JNJ", "META", "BRK-A",
                    "NVDA", "V", "PG", "UNH", "MA", "PYPL", "HD", "INTC", "ASML", "ADBE")

# Replace double quotes with single quotes
top_20_stocks_for <- gsub('\"', "", top_20_stocks)

# Define the symbol for the 10-Year U.S. Treasury Constant Maturity Rate
tnx_symbol <- "^TNX"

getSymbols(sp500, from = start_date, to = end_date, auto.assign = TRUE)

getSymbols(top_20_stocks, from = start_date, to = end_date, auto.assign = TRUE)

getSymbols(tnx_symbol, from = start_date, to = end_date, auto.assign = TRUE)

sp500_daily_return <- dailyReturn(GSPC$GSPC.Adjusted)

stocks_daily_returns <- list()

for (symbol in top_20_stocks_for) {
  stocks_daily_returns[[symbol]] <- dailyReturn(symbol$symbol.Adjusted)
}

错误原因 #

循环变量symbol是字符串（比如"AAPL"），不是quantmod通过getSymbols()加载到环境中的xts对象。直接用symbol$symbol.Adjusted相当于试图对字符串使用$运算符，这在R中是不允许的，因此触发错误。

修正方案 #

方案1：修正原有for循环 #

使用get()函数根据字符串获取对应的xts对象，再用Ad()函数提取调整收盘价（quantmod专门提供的便捷函数，比手动拼列名更可靠）：

stocks_daily_returns <- list()

for (symbol in top_20_stocks) {  # 原向量无多余引号，无需gsub处理
  stock_data <- get(symbol)
  stocks_daily_returns[[symbol]] <- dailyReturn(Ad(stock_data))
}

方案2：用tidyverse风格简化代码（更高效） #

借助purrr::map()可以避免手动写for循环，代码更简洁：

stocks_daily_returns <- top_20_stocks %>%
  set_names() %>%
  map(~ dailyReturn(Ad(get(.x))))

额外说明 #

1. 原代码中的top_20_stocks_for <- gsub('\"', "", top_20_stocks)是多余的，top_20_stocks本身就是无引号的字符串向量，不需要替换操作。
2. 使用Ad()函数提取调整收盘价比直接访问$XXX.Adjusted更鲁棒，能避免因列名拼写错误或格式变化导致的问题。

内容的提问来源于stack exchange，提问作者Kemit4