如何在R中用变量存储的列名执行逐行算术运算

你遇到的问题是因为动态列名在mutate中的引用方式不对，以下是两种可行的修复方法：

方法1：使用.data代词（推荐，语法更直观） #

.data是dplyr提供的代词，能直接通过字符串引用数据框中的列，结合之前计算的总和变量，就能逐行计算差值：

library(dplyr)
library(tibble)

sel_col <- "w"
df <- tibble(id = 1:6, w = 10:15, x = 20:25)

# 计算列总和
sel_col_tot <- sum(df[[sel_col]])
x_tot <- sum(df$x)

# 新增差值列
df_result <- df %>%
  mutate(
    # 动态生成新列名，计算总和与行值的差值
    {{sel_col}}_diff = sel_col_tot - .data[[sel_col]],
    x_diff = x_tot - x
  )

print(df_result)

运行后会得到包含w_diff和x_diff的结果框，其中每一行的差值都是对应列总和减去该行的原始值。

方法2：使用符号求值（适用于更复杂的动态场景） #

如果需要更灵活的动态列名处理，可以用sym()将字符串转为符号，再用!!求值，配合:=实现动态列名赋值：

df_result <- df %>%
  mutate(
    # 动态生成列名并计算差值
    !!paste0(sel_col, "_diff") := sel_col_tot - !!sym(sel_col),
    x_diff = x_tot - x
  )

错误原因说明 #

你之前的报错是因为直接用{{}}处理字符串类型的列名时，dplyr无法正确识别为数据框的列（{{}}更适合处理符号类型的变量），导致R错误地将列名本身当作向量处理，引发长度不匹配的问题。

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