如何在R中使用mutate按条件对列值执行计算替换？

你的代码无法运行的核心原因是**case_when要求所有分支返回相同的数据类型**：满足条件时你返回的是数值（var1/7），不满足条件时却返回了字符类型（as.character(var1)），类型不匹配导致报错。另外，你的需求是对数值进行计算，var1应该保持数值类型，不需要转成字符。

修正后的代码 #

情况1：var1本身是数值型列 #

直接保持数值类型一致即可：

library(dplyr)

df <- df %>%
  mutate(var1 = case_when(
    var2 == 'A' ~ var1 / 7,
    TRUE ~ var1
  ))

情况2：var1是字符型存储的数值 #

如果var1原本是字符类型（比如存为字符串的数字），需要先转为数值再计算，统一返回类型：

library(dplyr)

df <- df %>%
  mutate(var1 = case_when(
    var2 == 'A' ~ as.numeric(var1) / 7,
    TRUE ~ as.numeric(var1)
  ))
# 若后续必须转回字符类型（不推荐，会丢失数值计算能力），可追加：
# %>% mutate(var1 = as.character(var1))

额外提示 #

• 匹配单个值时，var2 == 'A'比var2 %in% c('A')更简洁高效。
• 确认var2列的目标值确实是大写的'A'，大小写不匹配会导致条件不触发。

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