连续变量重编码问题：使用mutate未实现预期效果

正确的dplyr mutate实现代码 #

使用case_when可清晰处理多条件逻辑，避免报错或无效赋值：

library(dplyr)

# 替换成你的数据框名、原变量名、新变量名
your_data <- your_data %>%
  mutate(
    MH = case_when(
      is.na(original_var) ~ 61,  # NA替换为61，可自行修改为60以上任意数值
      original_var == 0 ~ 61,     # 0替换为61
      between(original_var, 1, 60) ~ original_var,  # 1-60保留原值
      TRUE ~ original_var         # 兜底：其他数值（如>60）保持不变，可按需调整
    )
  )

常见失败原因排查 #

若执行后报错或新变量无变化，检查以下几点：

• 未加载dplyr包：先运行library(dplyr)，否则会提示找不到mutate/case_when
• 变量名/数据框名错误：确认原变量名、数据框名拼写完全一致
• 变量类型错误：用class(your_data$original_var)查看类型，若为字符型，先转成数值型：

  your_data <- your_data %>% mutate(original_var = as.numeric(original_var))
  

• 条件顺序问题：case_when按顺序匹配条件，优先处理NA更稳妥（NA与任何值比较结果都是NA，不会触发其他条件）
• 赋值遗漏：必须将结果赋值回原数据框（your_data <- your_data %>% ...），否则仅临时计算，不会保存新变量
• NA判断错误：禁止用original_var == NA，R中判断缺失值必须用is.na()

测试验证 #

用以下测试数据验证代码逻辑：

test_data <- tibble(original_var = c(10, 59, 60, 0, NA, 75, -3))

test_data <- test_data %>%
  mutate(
    MH = case_when(
      is.na(original_var) ~ 61,
      original_var == 0 ~ 61,
      between(original_var, 1, 60) ~ original_var,
      TRUE ~ original_var
    )
  )

print(test_data)

输出结果：

# A tibble: 7 × 2
  original_var    MH
         <dbl> <dbl>
1           10    10
2           59    59
3           60    60
4            0    61
5           NA    61
6           75    75
7           -3    -3

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