base R对指定列做乘2运算时报non-numeric argument错误求助

问题根因 #

你代码的核心问题是循环逻辑和预先定义的目标列不匹配，具体问题如下：

• 你先通过colnames(NB1stRow)[5:74]提取了目标列的列名存入col1st，但循环中完全没有用到这个变量，而是直接用循环变量i作为列索引取值。seq_along(col1st)生成的是从1到70的整数序列，意味着你实际遍历的是数据框的第1_{70列，而非你预期的第5}74列。
• 如果数据框前4列存在非数值类型的列（比如字符列、因子列、日期列等），对这些列执行乘2操作就会触发non-numeric argument to binary operator报错。

修正方案 #

方法1：调整循环逻辑调用目标列名 #

如果你要使用预先提取的列名列表，修改循环内的取值逻辑即可：

col1st <- colnames(NB1stRow)[5:74]
for(i in seq_along(col1st)){
  # 用列名取对应列，而非用i作为索引
  NB1stRow[[col1st[i]]] <- NB1stRow[[col1st[i]]] * 2
}

注意这里用双中括号[[直接提取列的向量值，而非单中括号[返回单列数据框，避免不必要的类型问题。

方法2：直接用列索引遍历（无需提前提取列名） #

如果确认要处理的就是第5~74列，不需要提前提取列名，直接遍历目标索引即可：

for(i in 5:74){
  NB1stRow[[i]] <- NB1stRow[[i]] * 2
}

方法3：更高效的向量化操作（base R 无需循环） #

R作为向量化语言，这类批量列操作完全不需要写循环，一行代码即可实现：

NB1stRow[,5:74] <- NB1stRow[,5:74] * 2

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