在R语言中对数值重新编码失败，求可行解决方法

问题原因 #

你的代码失效核心是数据类型不匹配：

• 若var是数值型，第一个代码用字符串（'1'）作为匹配键，recode无法识别数值，导致替换失败；
• 第二个代码若未将结果赋值回原列（比如没写df$var <- ...），也不会看到变化；如果var是因子型，直接用数值匹配同样会失效。

有效解决方法 #

方法1：dplyr::recode 匹配正确类型（简洁版）

如果var是数值型，直接用数值作为匹配键，还可以用.default简化重复规则：

library(dplyr)
df %>% mutate(var = recode(var, `1` = 1, `2` = 1, `5` = 2, .default = 3))

如果var是因子型，改用因子水平的字符串匹配：

df %>% mutate(var = recode(var, '1' = '1', '2' = '1', '5' = '2', .default = '3'))
# 若需要转数值型，再加一步：
df %>% mutate(var = as.numeric(recode(var, '1' = '1', '2' = '1', '5' = '2', .default = '3')))

方法2：case_when 更直观的多条件分组

适合规则复杂的场景，无需纠结数据类型（自动匹配）：

df %>% mutate(var = case_when(
  var %in% c(1,2) ~ 1,
  var == 5 ~ 2,
  TRUE ~ 3
))

方法3：Base R 实现（无需dplyr）

用cut函数按区间分组：

# 按区间切割并赋值标签
df$var <- cut(df$var, 
              breaks = c(-Inf, 2, 5, Inf), 
              labels = c(1, 2, 3),
              include.lowest = TRUE)
# 转成数值型（如果需要）
df$var <- as.numeric(as.character(df$var))

验证代码 #

可以先构造测试数据验证：

df <- data.frame(var = c(1,2,3,4,5,6,7))
# 用上述任意方法处理后，输出df即可看到结果
print(df)

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