如何在R中构建姓名与ACX关联的0-1标记dataframe？是否必须循环？

方法1：用tidyverse工具包（推荐） #

先去重避免同一个姓名在同一分组里重复计数，再转成宽格式并填充0：

library(tidyverse)

# 去重：保留每个姓名-分组的唯一组合
data_unique <- data %>% distinct(Run, Names, .keep_all = TRUE)

# 转宽格式，存在填1，不存在填0
result_df <- data_unique %>%
  mutate(value = 1) %>%
  pivot_wider(names_from = Run, values_from = value, values_fill = 0)

print(result_df)

方法2：用基础R的table函数 #

利用列联表直接生成存在性矩阵，再转成目标格式：

# 生成姓名和分组的列联表
name_run_table <- table(data$Names, data$Run)
# 把计数转成0/1（只要出现过就记1）
binary_table <- ifelse(name_run_table > 0, 1, 0)
# 转成dataframe并整理结构
result_df <- as.data.frame.matrix(binary_table)
result_df$Names <- rownames(result_df)
result_df <- result_df[, c("Names", colnames(result_df)[-ncol(result_df)])]
rownames(result_df) <- NULL

print(result_df)

R是向量式编程语言，这类行列转换、存在性判断的场景，用内置函数或专门的工具包操作比循环更高效，代码也更简洁易读。

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