计算列表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))

这将为您提供独特组合的数量