如何使用mutate_at在tibble各列后插入相对第二列的对应值？

刚好之前处理过类似的需求，用mutate_at结合dplyr的一些灵活语法就能完美解决，我给你详细拆解下：

首先先构造一个符合你描述的示例数据，方便你直观理解：

library(tibble)
library(dplyr)

# 示例数据：前两列保留，后面的列需要处理，列名完全自定义
sample_df <- tibble(
  id = c(1, 2, 3),          # 第一列
  base_col = c(2, -4, 6),    # 第二列（计算相对值的基准列）
  metric_a = c(-5, 10, -15), # 需要处理的列1：取绝对值+加相对值列
  metric_b = c(3, -6, 9)     # 需要处理的列2：同理
)

你的核心需求是：保留前两列，将后续所有列替换为绝对值，同时在每个处理后的列右侧插入一列，存储该列相对于第二列的比值，并且列名不固定也能适配。

方法1：循环处理单列（保证列顺序完全符合预期） #

这种方式能确保每个处理后的列后面直接跟着对应的相对值列，逻辑清晰，对新手友好：

# 获取需要处理的列（自动排除前两列，不管列名是什么）
cols_to_process <- colnames(sample_df)[-c(1, 2)]

# 逐个处理每个目标列
for(col in cols_to_process) {
  sample_df <- sample_df %>%
    # 1. 将当前列替换为绝对值
    mutate_at(vars(!!col), ~abs(.)) %>%
    # 2. 生成相对值列，列名为「原列名_rel」
    mutate(!!paste0(col, "_rel") := !!sym(col) / .data[[2]]) %>%
    # 3. 把相对值列移到当前列的紧后面
    relocate(!!paste0(col, "_rel"), .after = col)
}

运行完后查看结果，完全符合你的要求：

sample_df
#> # A tibble: 3 × 6
#>      id base_col metric_a metric_a_rel metric_b metric_b_rel
#>   <dbl>    <dbl>    <dbl>        <dbl>    <dbl>        <dbl>
#> 1     1        2        5          2.5        3          1.5
#> 2     2       -4       10         -2.5        6         -1.5
#> 3     3        6       15          2.5        9          1.5

方法2：批量处理+调整列顺序（更简洁） #

如果不介意先批量生成所有列再调整顺序，也可以用更紧凑的写法：

library(stringr) # 需要用到str_remove函数

sample_df <- sample_df %>%
  # 1. 批量将所有非前两列替换为绝对值
  mutate_at(vars(-1, -2), abs) %>%
  # 2. 批量生成相对值列，后缀为_rel
  mutate_at(vars(-1, -2), funs(rel = . / .data[[2]])) %>%
  # 3. 调整列顺序，让每个_rel列紧跟对应的原列
  relocate(ends_with("_rel"), .after = matches(str_remove(ends_with("_rel"), "_rel")))

关键细节解释 #

• vars(-1, -2)：自动选中除前两列外的所有列，完美适配列名不固定的场景；
• .data[[2]]：直接引用数据框的第二列，不需要硬编码列名，同样适配列名变化的情况；
• !!sym(col) 和 !!paste0(col, "_rel")：这是dplyr的准引用语法，用来动态生成列名，确保代码能处理任意自定义列名；
• relocate：专门用来调整列的位置，让相对值列紧跟在原列后面，满足你对列顺序的要求。

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