如何在R语言数据框中对所有偶数执行减6后取绝对值的操作？

针对你的需求，利用R的向量化操作可以避免复杂的循环或筛选合并，直接批量处理数据框所有元素：

方法1：基础R原生实现 #

无需额外包，直接通过lapply结合ifelse向量化处理每一列：

# 创建原始数据框
df <- as.data.frame(matrix(1:5, rep(10), ncol = 10))

# 批量处理：偶数执行abs(x-6)，奇数保持原样
df[] <- lapply(df, function(x) ifelse(x %% 2 == 0, abs(x - 6), x))

方法2：tidyverse/dplyr风格实现 #

如果习惯tidy语法，用across批量处理所有列：

library(dplyr)

df <- df %>%
  mutate(across(everything(), ~ifelse(.x %% 2 == 0, abs(.x - 6), .x)))

原理说明 #

• ifelse是向量化函数，会自动对每个元素判断奇偶，无需逐行循环
• lapply/across实现对数据框所有列的批量处理，避免重复写代码
• 处理后的数据框直接输出就是你期望的结果，2和4完成互换，奇数保持不变

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