如何在列表列表中获取不同列表的频率

Question

假设我有以下列表：

test<-list(c("a","b","c"),c("a,c"),c("a,c"),c("a","b","c"),c("a"))

我想要这样的结果：

("a","b","c") = 2
("a,c")=2
("a")=1

我试过

> table(test)
Error in table(test) : all arguments must have the same length

Answer 1

这是一个单线。 上面一行数字是向量的名称。

table(match(test, unique(test)))
#1 2 3 
#2 2 1 

Answer 2

sapply和toString有什么问题：

> table(sapply(test, toString))

      a a, b, c     a,c 
      1       2       2 
>