如何基于列位置系统地对DataFrame列进行除法运算？

安全阿岳

2026-7-2

R语言批量生成前列除以后列的新列方法

示例数据

首先定义示例数据框：

df <- data.frame(id = c('a1', 'a2'), a = c(1, 0), b = c(4,0), c = c(4, 3), d = c(5, 10))

对应的表格：

id	a	b	c	d
a1	1	4	4	5
a2	0	0	3	10

需求说明

需要批量生成新列，规则为：从非id列的最后一列开始，依次用前一列除以后一列，生成div_c = c/d、div_b = b/c、div_a = a/b这类新列，避免列数较多时手动逐个输入。

实现方法

方法一：dplyr + purrr 实现

借助purrr的reduce函数批量迭代生成新列：

library(dplyr)
library(purrr)

# 筛选出需要计算的列（排除id）
calc_cols <- setdiff(names(df), "id")
# 生成前列-后列的配对组合，再反转顺序（从最后一组开始计算）
col_pairs <- rev(map2(calc_cols[-length(calc_cols)], calc_cols[-1], ~list(.x, .y)))

# 批量生成新列
df_result <- df %>%
  reduce(col_pairs, .init = ., function(.data, pair) {
    col_before <- pair[[1]]
    col_after <- pair[[2]]
    new_col_name <- paste0("div_", col_before)
    .data %>% mutate(!!new_col_name := .data[[col_before]] / .data[[col_after]])
  })

方法二：Base R 循环实现

无需额外包，用基础循环完成：

calc_cols <- setdiff(names(df), "id")

# 从倒数第二列开始向前遍历
for (i in (length(calc_cols)-1):1) {
  col_before <- calc_cols[i]
  col_after <- calc_cols[i+1]
  new_col_name <- paste0("div_", col_before)
  df[[new_col_name]] <- df[[col_before]] / df[[col_after]]
}