如何在列表列表中獲取不同列表的頻率

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 
>