计算列表R中的唯一组合

Question

我正在处理以下问题.我有一个不同大小的列表,我想计算单词的出现次数,但加入相同的组合,如:

[[1]]
"Room" "Residential 
[[2]]
"Residential" "Room" 
[[3]]
"Garage"
[[4]]
"Room" "Residential" "Comercial"

结果 - 组合| 值

'Room, Residential': 2
'Garage': 1
"Room, Residential, Comercial': 1

有任何想法吗？

数据

list(c("Room", "Residential"), c("Residential", "Room"), "Garage", 
     c("Room", "Residential", "Comercial"))

Answer 1

res = lapply(L, function(x) paste(sort(unique(x)), collapse = ","))

这将根据某个顺序对值进行排序,并将值与逗号组合,L您的列表在哪里;

table(unlist(res))

这将为您提供唯一组合的数量