如何按ID分组统计指定向量元素在多列中的出现次数并生成汇总表？

我已定义如下参考向量：

high_vector <- c("740", "742", "744")
all_vector <- c("736", "738")

• 注意：high_vector中的元素744并未被使用。

我有一段过往项目的代码可供参考，该代码用于提取指定变量中所有为"Yes"的输入，但与本次需求不同，本次我需要统计元素的出现次数：

PurposeCols <- c("NEW_CAR", "USED_CAR", "FURNITURE", "RADIO/TV", "EDUCATION", "RETRAINING")
CD$PURPOSE <- PurposeCols[apply(CD[PurposeCols],1, function(x) match("Yes", x))] %>% 
  replace_na("OTHER") %>% str_to_title() %>% as.factor()

需求概述 #

我需要统计all_vector和high_vector中所有元素的出现次数，生成一列；再单独统计high_vector中元素的出现次数，生成另一列。

我将在更大的数据集上执行此操作，并计划使用group_by进行分组。

感谢您的帮助。

数据示例 #

原始数据 #

foo <- data.frame(
  ID = c("one", "one", "one", "one", "two", "two"),
  first = c("736", "738", "997","200", "408", "675"),
  second = c("800", "842", "740", "301", "742", "682"),
  third = c("980",  NA,       NA, "742", "975", "738")
)

目标结果 #

bar <- data.frame(
  all = c(4,2),
  high = c(2,1)
)
rownames(bar) <- c("one", "two")

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