R语言基于两列现有数据为多个新列批量赋值的方法咨询

最适合的方案是映射表左连接，操作简单且效率极高，完全适配你的需求场景，实现逻辑如下：

实现步骤 #

1. 首先整理所有Group+Actor对应的Sex、Status映射规则，做成独立的映射表，后续规则更新只需要修改这张表即可
2. 用左连接把映射表的字段匹配到原数据框，再直接拼接生成SexStat列

示例代码 #

1. 构建映射表（示例，你可以补充所有对应关系到该表）

map_df <- data.frame(
  Group = c("A", "A", "A", "A", "B", "B", "B", "B"),
  Actor = c(1, 3, 4, 6, 2, 3, 4, 6),
  Sex = c("M", "F", "M", "F", "F", "M", "F", "M"),
  Status = c("Dom", "Med", "Sub", "Sub", "Dom", "Med", "Med", "Sub")
)

2. 匹配生成新列（dplyr版本，代码更简洁）

library(dplyr)

df_result <- df %>%
  # 按Group和Actor双字段匹配映射
  left_join(map_df, by = c("Group", "Actor")) %>%
  # 拼接生成SexStat列
  mutate(SexStat = paste0(Status, Sex))

3. 匹配生成新列（base R版本，无需加载第三方包）

df_result <- merge(df, map_df, by = c("Group", "Actor"), all.x = TRUE)
df_result$SexStat <- paste0(df_result$Status, df_result$Sex)

方案优势 #

• 维护成本低：映射规则统一存放在映射表，不需要写大量嵌套的条件判断语句，增删改规则只需修改映射表
• 执行效率高：连接操作是向量化运算，哪怕是十万级行数据也能秒级完成，5500行数据没有任何性能压力
• 出错概率低：避免手动写条件判断时的逻辑疏漏、拼写错误，匹配不到的规则会自动返回NA，方便后续校验补全

注意：请确保映射表中Group和Actor的组合唯一，避免重复映射导致匹配后出现多余重复行。

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