如何用case_when一次性为多个变量按条件赋值？

针对你遇到的重复编写case_when条件的问题，有两种简洁的方法可以实现仅定义一次条件，同时为ef1和ef2赋值，以下是具体实现：

方法1：用条件映射表统一管理（推荐，适合多条件场景） #

先把所有条件与对应ef1、ef2的取值整理成一个映射表，再通过匹配关联到原数据框，避免重复写条件逻辑：

library(tidyverse)

# 1. 定义条件-取值映射表，包含所有规则和默认值
condition_map <- tibble(
  soil = c("clay", "sand", NA),  # NA代表匹配所有未命中的情况
  use = c("crop", "pasture", NA),
  ef1 = c(0.5, 0.8, 1.0),       # 对应条件的ef1值
  ef2 = c(2.3, 1.9, 1.5)        # 对应条件的ef2值
)

# 2. 关联映射表并补全默认值
df <- df %>%
  left_join(condition_map, by = c("soil", "use")) %>%
  # 用coalesce替换未匹配到的NA为默认值（如果映射表用NA做通配，这一步可省略）
  mutate(
    ef1 = coalesce(ef1, 1.0),
    ef2 = coalesce(ef2, 1.5)
  )

这种方式的优势是：所有规则集中在映射表，后续修改条件或取值时只需调整这一张表，维护成本更低，尤其适合条件较多的场景。

方法2：用case_when返回多值tibble（适合少条件场景） #

在case_when中每个条件返回包含ef1和ef2的tibble，再通过unnest_wider拆分出单独列，条件只需写一次：

library(tidyverse)

df <- df %>%
  mutate(
    ef_vals = case_when(
      soil == "clay" & use == "crop" ~ tibble(ef1 = 0.5, ef2 = 2.3),
      soil == "sand" & use == "pasture" ~ tibble(ef1 = 0.8, ef2 = 1.9),
      TRUE ~ tibble(ef1 = 1.0, ef2 = 1.5)  # 默认情况
    )
  ) %>%
  unnest_wider(ef_vals)  # 将ef_vals拆分为ef1和ef2两列

这种方式逻辑紧凑，适合条件较少的场景，所有规则都写在同一个case_when块里，一目了然。

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