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

Question

我想计算列表中每个值的出现次数names()（替代向量）

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()或 eg的不同替代方法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

任何指针将不胜感激，谢谢！