如何去除R语言向量中的双引号并批量修改数据框列名

看起来你现在的核心问题是energy存的是data.frame的名字（字符串），而不是对象本身，导致后续修改列名的操作失败。我来一步步帮你解决：

第一步：把字符串向量转换成存储data.frame的列表 #

你现在的energy是c("XOM", "APA", "CVX", "DUK")这种字符串向量，用mget()函数可以直接把这些字符串对应的data.frame对象提取出来，组成一个列表：

# 前提是XOM、APA、CVX、DUK已经是你环境中存在的data.frame
energy_dfs <- mget(c("XOM", "APA", "CVX", "DUK"))

现在energy_dfs[[1]]就是XOM这个data.frame本身，而不是字符串"XOM"，后续操作就没问题了。

第二步：修改列名的正确方法 #

方法一：用for循环（适合新手理解） #

你之前的循环错误在于for (i in length(energy))——length(energy)返回的是一个数字（比如4），所以循环只会跑一次。应该用seq_along(energy_dfs)来遍历每个元素的索引：

# 先定义你要替换的新列名
new_cols <- c('a','b','c','d', ...) # 把...换成你实际的列名

for (i in seq_along(energy_dfs)) {
  # 用[[i]]取出列表里的单个data.frame，而不是[i]（后者返回子列表）
  colnames(energy_dfs[[i]]) <- new_cols
}

方法二：用lapply（更简洁的R风格写法） #

如果不想写循环，R里的lapply可以一次性处理列表里的所有元素，代码更简洁：

new_cols <- c('a','b','c','d', ...)

energy_dfs <- lapply(energy_dfs, function(df) {
  colnames(df) <- new_cols
  return(df)
})

执行完后，energy_dfs里的每个data.frame都已经更新了列名。

额外需求：直接修改原环境中的data.frame #

如果你不想用列表，而是想直接修改全局环境里的XOM、APA这些原始对象，可以这样写循环：

energy_names <- c("XOM", "APA", "CVX", "DUK")
new_cols <- c('a','b','c','d', ...)

for (name in energy_names) {
  # 取出对应名字的data.frame
  temp_df <- get(name)
  # 修改列名
  colnames(temp_df) <- new_cols
  # 把修改后的data.frame放回全局环境
  assign(name, temp_df, envir = .GlobalEnv)
}

这样循环结束后，你直接调用XOM就能看到列名已经改好了。

内容的提问来源于stack exchange，提问作者김태환