如何在dplyr的case_when()中基于其他列值赋值并解决类型报错

问题解答 #

是可以引用其他已有列给目标列赋值的，你遇到的报错是返回值类型不统一导致的，和引用其他列的操作无关。

报错原因

你要修改的Assay列原本为字符类型，case_when()要求所有分支的返回值类型必须一致，而你写的Modifier * 3返回的是双精度数值类型，和字符类型不兼容，因此触发报错。

修正后代码

只需要将数值计算的结果转为字符类型即可正常运行：

library(dplyr)

df = tibble(Assay = c("A", "A", "B", "C", "D", "D"), 
            My_ID = c(3, 12, 36, 5, 13, 1), 
            Modifier = c(12, 6,  5, 9, 3, 6)) 

new_df = df %>% 
  mutate(Assay = case_when(
    My_ID == 5 ~ "C/D",
    My_ID == 12  ~ "Rm",
    My_ID == 13 | My_ID == 3  ~ as.character(Modifier * 3), # 把计算结果转成字符类型
    TRUE ~ Assay)) %>% 
  select(-Modifier)

运行结果

和你预期的输出完全一致：

# A tibble: 6 × 2
  Assay My_ID
  <chr> <dbl>
1 36        3
2 Rm       12
3 B        36
4 C/D       5
5 9        13
6 D         1

补充说明

如果后续需要给不同分支返回不同类型的结果，统一转换为和目标列一致的类型即可正常运行。

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