R语言用dplyr的rename()重命名列时遇unexpected symbol错误求助

首先看你代码里的几个关键问题：

1. 循环迭代范围错误 #

你写的for (col in ncol(data))只会循环一次，因为ncol(data)返回的是列的总数（比如如果有3列就是数字3），循环变量col只会取到这个单一值，正确的应该是遍历列的索引：for (col in 1:ncol(data))。

2. 动态列名的语法问题 #

dplyr的rename()函数默认不支持直接用变量作为新列名的左侧赋值，你写的cols[col] = names(data)[col]会被R解析成字面量列名，导致语法错误。要实现动态重命名，需要用到tidy求值的语法，或者更简单的rename_with()函数（推荐）。

方案一：修正循环+tidy求值 #

如果你想保留循环的思路，可以用!!sym()来把变量转换成列名，同时用:=代替=来实现动态赋值：

x <- names(data)
cols <- gsub('\\.', ' ', x)
for (col in 1:ncol(data)) {
  old_col <- names(data)[col]
  new_col <- cols[col]
  data <- data %>% rename(!!sym(new_col) := !!sym(old_col))
}

方案二：用rename_with()更简洁高效 #

其实完全不需要循环，dplyr的rename_with()专门用来批量重命名列，一行代码就能搞定：

data <- data %>% rename_with(~ gsub('\\.', ' ', .x))

这里的.x代表每一列的列名，直接把所有列名里的.替换成空格，比循环简洁多了，也避免了循环里的语法问题。

额外提示 #

如果你的dplyr版本比较新（1.0.0+），rename_with()是最推荐的批量重命名方式，代码更易读也更高效。如果一定要用rename()处理单个列的动态命名，记得用!!sym(new_name) := old_name的语法，:=是dplyr里用来支持动态赋值的操作符。

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