如何在R语言中替换数据集列中的多种族字符串为'Mixed'

这里提供几种实用的实现方式，适配不同的代码风格：

方法1：基础R实现 #

无需额外安装包，直接用grepl检测逗号（多种族组合的标识），再通过ifelse完成替换：

# 假设数据集名为df，种族列名为race
df$race <- ifelse(grepl(",", df$race), "Mixed", df$race)

方法2：tidyverse/dplyr实现 #

适合习惯使用tidyverse生态的用户，结合stringr的字符串检测功能：

library(dplyr)
library(stringr)

# 方式A：用case_when逻辑判断
df <- df %>%
  mutate(race = case_when(
    str_detect(race, ",") ~ "Mixed",
    TRUE ~ race  # 保留原单一种族值
  ))

# 方式B：更简洁的replace写法
df <- df %>%
  mutate(race = replace(race, str_detect(race, ","), "Mixed"))

方法3：data.table实现 #

如果处理的是超大型数据集（你的9000条观测值也适用），data.table的操作效率更高：

library(data.table)
setDT(df)  # 将数据框转换为data.table格式
df[grepl(",", race), race := "Mixed"]

验证替换结果 #

替换完成后，可以查看种族列的唯一值，确认多种族值已被替换：

unique(df$race)

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