R语言：将数据表指定列值除以某列并替换原列值问题

问题分析 #

你之前的代码存在两个核心问题：

• 基础R写法中，直接将计算结果赋值给整个数据框，导致前20列被覆盖丢失；
• dplyr的mutate_at写法错误，没有针对每一列单独计算，而是试图让整个列范围除以参考列，语法逻辑不成立。

下面用内置的iris数据集演示两种可行方案，你只需替换对应的列范围即可。

方案1：基础R方法（无需额外包） #

这种方法直接高效，适合处理大数据量：

# 加载iris数据集
data(iris)

# 定义参数：要修改的列范围、参考列
cols_to_modify <- 3:4  # 对应iris的Petal.Length、Petal.Width列
ref_col <- 2           # 对应iris的Sepal.Width列

# 核心操作：仅修改指定列，保留其他所有列
iris[, cols_to_modify] <- iris[, cols_to_modify] / iris[, ref_col]

# 验证修改结果
head(iris)

对应你的需求，只需把cols_to_modify改成21:150，ref_col改成5即可。

方案2：dplyr方法（推荐用最新语法） #

如果你习惯用tidyverse工具，推荐使用across（替代已软弃用的mutate_at）：

library(dplyr)

data(iris)

cols_to_modify <- 3:4
ref_col <- 2

# 用across批量处理指定列，.x代表当前列，sym()转换列名到符号
iris <- iris %>%
  mutate(across(all_of(cols_to_modify), ~ .x / !!sym(colnames(.)[ref_col])))

# 验证结果
head(iris)

如果需要兼容旧版dplyr，也可以用mutate_at的正确写法：

iris <- iris %>%
  mutate_at(vars(cols_to_modify), funs(. / !!sym(colnames(.)[ref_col])))

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