RStudio技术问询：如何将多个布尔变量合并为单个分类变量？

需求说明 #

将原始数据中类似Swedish的复选框字段（值为Checked/Unchecked）转换为用于分析的Country分类列：对应字段为Checked时标记为对应国籍，否则标记为Other。

原代码问题修正 #

原代码存在两处关键问题：

• 逻辑判断误用单等号=（赋值操作），应改为双等号==（逻辑判断）
• 直接给NEWdf$Country赋值的写法不符合tidyverse操作规范，建议用mutate统一处理

修正后的代码 #

# 可选：将Swedish字段转为因子（用于后续有序分析或可视化）
df <- df %>%
  mutate(
    Swedish = factor(Swedish, levels = c("Checked", "Unchecked"))
  )

# 生成包含Country分类列的新数据框
NEWdf <- df %>%
  mutate(
    Country = case_when(
      Swedish == "Checked" ~ "Swedish",
      # 按需求添加其他国籍的判断条件，示例：
      # Norwegian == "Checked" ~ "Norwegian",
      # Danish == "Checked" ~ "Danish",
      .default = "Other"
    )
  )

多国籍字段优化方案 #

如果原始数据包含多个国籍复选框字段（如Swedish、Norwegian、Danish），可简化代码（假设每个样本最多只有一个国籍被勾选）：

# 定义所有国籍复选框字段名
nationality_cols <- c("Swedish", "Norwegian", "Danish")

NEWdf <- df %>%
  # 批量将所有国籍字段转为因子（可选）
  mutate(across(all_of(nationality_cols), ~factor(., levels = c("Checked", "Unchecked")))) %>%
  # 生成Country列
  mutate(
    Country = case_when(
      !!!map(nationality_cols, ~sym(.x) == "Checked" ~ .x),
      .default = "Other"
    )
  )

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