如何在R Studio中为主数据集all_members添加子表成员出现次数统计变量？

嘿，这个需求在R里其实有挺顺手的实现方式，刚好对应你说的Excel里VLOOKUP+COUNTIF的逻辑，我给你分享两种常用的方法，适配不同的习惯：

如果平时习惯用tidyverse系列工具，这个方法会非常高效，尤其适合你有25个子表的批量场景：

首先加载需要的包：

library(tidyverse)

步骤拆解： #

1. 把所有子表放进一个列表：这样方便批量遍历处理，给每个表起个好认的名字（比如原表名）：

sub_tables <- list(
  table1 = table1,
  table2 = table2,
  # ... 把剩下的23个子表依次加进来
  table25 = table25
)

2. 批量统计每个子表的成员出现次数：用map遍历列表里的每个子表，用count函数统计每个成员ID的出现次数，同时给计数列自动命名为count_子表名：

count_list <- map(sub_tables, ~ .x %>%
                    count(member_id, name = str_c("count_", names(sub_tables)[which(sub_tables == .x)])))

3. 合并计数结果到主表：把所有计数表合并后，和主表all_members左连接，最后把没出现过的成员的NA值替换为0（毕竟没出现就是0次）：

all_members_with_counts <- all_members %>%
  left_join(bind_rows(count_list), by = "member_id") %>%
  replace(is.na(.), 0)

注意： 这里默认所有表的匹配列叫member_id，如果你的匹配列名字不一样，记得统一修改成相同的名称哦！

如果你更习惯用原生R的语法，循环处理也是个稳妥的选择：

步骤拆解： #

1. 列出所有子表的名称（字符串形式）：

sub_table_names <- c("table1", "table2", ..., "table25")

2. 循环遍历每个子表，统计并合并：

for (tbl_name in sub_table_names) {
  # 根据表名获取子表数据
  current_table <- get(tbl_name)
  # 统计每个成员的出现次数
  member_counts <- table(current_table$member_id)
  # 把统计结果转换成数据框
  count_df <- data.frame(
    member_id = names(member_counts),
    count = as.integer(member_counts),
    stringsAsFactors = FALSE
  )
  # 给计数列命名为count_子表名
  colnames(count_df)[2] <- paste0("count_", tbl_name)
  # 左连接到主表，保留所有主表成员
  all_members <- merge(all_members, count_df, by = "member_id", all.x = TRUE)
  # 把NA替换成0（没出现过的成员计数为0）
  all_members[[paste0("count_", tbl_name)]][is.na(all_members[[paste0("count_", tbl_name)]])] <- 0
}

两种方法最终都会得到你的主表all_members新增25个计数变量，每个变量对应成员在对应子表的出现次数，完美替代Excel里的组合操作~

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