如何用R的dplyr批量替换数据框中指定范围的数值？

针对你需要将df的x列中20010001_{20010010批量替换为2001}2010的需求，无需逐个修改，有以下几种高效实现方式：

方法一：利用数值规律直接计算（最简洁） #

观察目标数值的规律：2001000n → 2000 + n（n从1到10），可以通过数学运算直接完成替换：

library(tidyverse)

df <- df %>%
  mutate(x = if_else(between(x, 20010001, 20010010), 
                     2000 + (x %% 10000), 
                     x))

• between(x, 20010001, 20010010)：精准筛选出需要替换的数值范围
• x %% 10000：提取原数的后四位（1~10），加上2000后得到对应目标值
• 不符合范围的数值保持原样

方法二：用case_when实现灵活映射（适合扩展规则） #

如果后续需要添加更多替换规则，case_when的可读性和扩展性更强：

df <- df %>%
  mutate(x = case_when(
    between(x, 20010001, 20010010) ~ 2000 + (x %% 10000),
    TRUE ~ x  # 保留其他所有数值不变
  ))

方法三：基础R写法（无需加载tidyverse） #

如果不想依赖tidyverse包，用基础R的索引操作也能实现：

# 筛选需要替换的行索引
target_idx <- df$x >= 20010001 & df$x <= 20010010
# 批量替换目标位置的数值
df$x[target_idx] <- 2000 + (df$x[target_idx] %% 10000)

验证效果 #

执行上述任意方法后，df$x中的20010001会变为2001，20010010变为2010，其余数值（如20、14965等）均保持原始状态。

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