计算列表或向量中每个名称的每个值的出现次数

Question

我想计算列表中每个names()的每个值的出现次数（alt a vector）

lst <- list(`a,b`=1, `b,a`=2, `a,b`=2, `b,a`=1,`a,b`=1,`a,b`=2,`b,a`=1) # list
vec <- unlist(lst) # vector
# ether list or vector would work

我无法弄清楚这一点。我使用table()，tabulation()，str_count()尝试了不同的替代方案，例如sapply(names(lst), function(x) sum(sapply(vec, function(y) all(y==x))))

对于上面的虚拟示例，所需的输出看起来像 ：

$`a,b`
1: 2
2: 2

$`b,a`
1: 2
2: 1

非常感谢任何指针，谢谢！