如何解决R quantmod下载多标的月度价格时的报错与数据问题

• 运行报错的核心逻辑矛盾：原代码取数环节将Ad()函数和硬编码列位置索引嵌套使用。Ad()本身是专为标准OHLCVA结构的xts对象设计、按列名匹配提取调整收盘价的函数，而原写法中先通过[,6]位置索引取到单序列的调整收盘价列，再对这个单序列对象调用Ad()，会因为传入对象不符合函数要求的结构触发维度匹配错误，导致程序中断。
• 数值异常的核心原因：原代码的列名清洗逻辑采用了泛化正则匹配，没有精确匹配需要删除的后缀，一旦取数环节出现列错位，就会把不同标的的同类型字段错误合并，最终拼出的数据集出现字段错位、数值匹配错误，导致不同标的的价格序列数值差异不符合常识预期。

优化方案完全对齐批量获取多标的长周期月度调整收盘价、整合为统一时间序列的需求，同时从逻辑上规避原有代码的漏洞：

• 取消硬编码列位置索引的写法，所有调整收盘价统一通过Ad()函数按列名提取，从根源上避免列顺序变动导致的取数错误
• 用内置的lapply流程替代手写for循环的列表赋值逻辑，压缩冗余代码
• 列名清理采用精确匹配.Adjusted后缀的逻辑，避免泛化正则误伤有效列名
• 保留quantmod原生xts时间序列结构，可直接对接后续收益计算、策略回测等分析流程

library(quantmod)

# 定义标的池
symbol_list <- c(
  'SPY',  # 标普500指数ETF
  'IEF',  # 7-10年期美债ETF
  'TLT',  # 20年以上期美债ETF
  'AGG',  # 全美综合债券ETF
  'SHY',  # 1-3年期美债ETF
  'GLD',  # 黄金ETF
  'IWN'   # 罗素2000价值ETF
)

# 批量获取月度调整收盘价的通用函数
get_monthly_adj_prices <- function(symbols, start_date = "2000-11-01") {
  # 从雅虎财经批量加载月度行情
  loadSymbols(
    Symbols = symbols,
    src = "yahoo",
    from = start_date,
    periodicity = "monthly",
    auto.assign = TRUE
  )
  # 逐个提取调整收盘价，直接合并为统一时间序列
  price_xts <- do.call(
    cbind,
    lapply(symbols, function(sym) Ad(get(sym)))
  )
  # 精确清理列名，移除默认的.Adjusted后缀
  colnames(price_xts) <- gsub(".Adjusted", "", colnames(price_xts))
  # 按共有时间范围对齐，移除缺失值
  price_xts <- na.omit(price_xts)
  return(price_xts)
}

# 执行取数流程
monthly_adj_prices <- get_monthly_adj_prices(symbol_list)

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