R语言无拼写错误却报意外符号错误：大字符向量创建问题

问题背景 #

基于标普500的503只股票测试Markowitz投资组合模型，已通过quantmod获取所有标的的每日Open、Close、Adjusted、High、Low、Volume数据，并合并为Full xts对象：

tickers = c("AAPL", "MSFT", "AMZN",...)
quantmod::getSymbols(tickers, src = 'yahoo', from = Sys.Date()-(20*365))
Full = merge(SPY,AAPL, MSFT, AMZN,...)

尝试移除Full中的High、Low、Volume列时，手动生成包含1509个元素的subset1字符向量会触发意外符号错误或控制台补全模式，减少元素数量则正常运行，需无需拆分子集的解决方案。

解决方案 #

方法1：正则匹配筛选列名（最便捷） #

无需手动生成待移除列名，直接通过正则表达式匹配保留/删除目标列：

• 保留Open、Close、Adjusted列：

# 匹配以.Open、.Close、.Adjusted结尾的列名
keep_cols <- grep("\\.(Open|Close|Adjusted)$", colnames(Full), value = TRUE)
Full.OCAV <- Full[, keep_cols]

• 移除High、Low、Volume列：

# 匹配以.High、.Low、.Volume结尾的列名
drop_cols <- grep("\\.(High|Low|Volume)$", colnames(Full), value = TRUE)
Full.OCAV <- Full[, !colnames(Full) %in% drop_cols]

注：使用xts的[ ]索引比subset()函数更稳定，适合大规模列操作。

方法2：脚本加载长向量规避控制台限制 #

若必须使用手动生成的列名列表，将长向量保存到R脚本文件后加载：

1. 把Excel生成的完整c("SPY.High", "SPY.Low", ...)字符向量复制到新建的subset_list.R文件中并保存；
2. 在R中加载该脚本：

source("subset_list.R")
Full.OCAV <- Full[, !colnames(Full) %in% subset1]

方法3：获取数据时直接指定字段 #

从源头减少不必要的数据，避免后续删除操作：

# 批量获取每个标的的Open、Close、Adjusted数据
getSymbols(tickers, src = 'yahoo', from = Sys.Date()-(20*365), auto.assign = TRUE)
Full <- do.call(merge, lapply(tickers, function(x) {
  get(x)[, paste0(x, c(".Open", ".Close", ".Adjusted"))]
}))
# 合并SPY的对应字段
Full <- merge(SPY[, c("SPY.Open", "SPY.Close", "SPY.Adjusted")], Full)

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