如何计算R中一个表列与另一个数据帧的匹配数?

你走在正确的道路上,但需要一些调整。

small %>%
  mutate(count_yes = map_int(links, ~sum(.x %in% large$id[large$att %in% "yes"])))

#     id links     count_yes
#  <dbl> <list>        <int>
#1     1 <dbl [4]>         2
#2     2 <dbl [4]>         1

或者在基数R中:

sapply(small$links, \(x) sum(x %in% large$id[large$att %in% "yes"]))

注意使用 %in% 而不是 == 会回来的 FALSE 对于 NA 价值观。

当你在寻找一个 tidyverse 解决方案,我认为这里的一种表达方式是 tidyr::unnest() 那么,这里的列表列 left_join() 到 large 和 summarise() :

small |>
    tidyr::unnest(links) |>
    left_join(large, by = c("links" = "id")) |>
    summarise(
        links = list(links),
        count_yes = sum(att == "yes", na.rm = TRUE), .by = id
    )

# # A tibble: 2 × 3
#      id links     count_yes
#   <dbl> <list>        <int>
# 1     1 <dbl [4]>         2
# 2     2 <dbl [4]>         1

虽然我宁愿只保留长格式的数据,而不是做最后一步,除非有很好的理由使用列表列,因为这将避免使用 map*() 或 *apply() 功能。