如何在R中使用mutate批量生成多列？

当然可以一次性生成c1到c4这些列，across()完全可以实现，这里提供两种实用方法：

方法1：用across()结合列名匹配批量处理 #

通过匹配列名规律，批量对对应列做运算并生成新列：

library(dplyr)
library(stringr)

df = data.frame(a1 = 1:2, a2 = 3:4, a3 = 5:6, a4 = 7:8,
                b1 = 1:2, b2 = 3:4, b3 = 5:6, b4 = 7:8)

df %>%
  mutate(across(starts_with("a"), 
                ~ .x - get(str_replace(cur_column(), "a", "b")),
                .names = "c{str_remove(col, 'a')}"
                ))

代码说明： #

• starts_with("a")：选中所有以a开头的列
• ~ .x - get(str_replace(cur_column(), "a", "b"))：对每一列aN，自动匹配对应的bN列做减法（cur_column()获取当前处理的列名，str_replace把a换成b，get()提取对应列的值）
• .names = "c{str_remove(col, 'a')}"：定义新列名规则，把原列名的a替换成c，比如a1生成c1

方法2：宽转长再长转宽（适配复杂配对场景） #

如果列的配对逻辑更复杂，先转成长格式计算再转回宽格式更灵活：

library(dplyr)
library(tidyr)

df %>%
  pivot_longer(everything(), names_to = c("prefix", "num"), names_pattern = "(.)(.)") %>%
  mutate(c = a - b) %>%
  pivot_wider(names_from = num, values_from = c(a, b, c))

代码说明： #

• pivot_longer(..., names_pattern = "(.)(.)")：把列名拆分成前缀（a/b）和数字后缀，生成prefix、num、value三列，自动把同后缀的a/b值归到同一行
• mutate(c = a - b)：直接计算每行的差值
• pivot_wider(...)：把数据转回宽格式，自动生成a1、b1、c1等列

你的尝试失败的原因 #

你直接用paste('c', 1:4)作为列名、paste('a', 1:4) - paste('b', 1:4)做运算的写法存在两个核心问题：

• paste()返回的是字符串，而mutate()需要操作的是数据框的列对象，不能直接用字符串做列运算
• 赋值符号左侧不能直接用字符串，必须用动态列名的语法（比如across()的.names参数，或者:=结合!!sym()）来定义新列名

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