r - R:使用子元素对嵌套列表中的值进行计数

Question

我有一个包含国家名称的嵌套列表。
我想计算一下这些国家/地区的出现频率，即在子列表中的每个提及都加上+1(无论该子列表中提及该国家的频率如何)。
例如，如果我有此列表:

[[1]]
[1] "Austria" "Austria" "Austria"

[[2]]
[1] "Austria" "Sweden"

[[3]]
[1] "Austria" "Austria" "Sweden"  "Sweden" "Sweden" "Sweden"

[[4]]
[1] "Austria" "Austria" "Austria"

[[5]]
[1] "Austria" "Japan" 

...那么我希望结果是这样的:

country        freq
====================
Austria         5
Sweden          2
Japan           1

我已经尝试了 lapply， unlist， table等各种方法，但是没有任何一种方法可以满足我的需要。多谢您的协助!

Answer 1

lapply()，unlist()和table()的一种方法:

count <- table(unlist(lapply(lst, unique)))
count
# Austria   Japan  Sweden 
#       5       1       2 


as.data.frame(count)
#      Var1 Freq
# 1 Austria    5
# 2   Japan    1
# 3  Sweden    2

可重现的数据(请在下一次提供您自己的信息):

lst <- list(
  c('Austria', 'Austria', 'Austria'), 
  c("Austria", "Sweden"), 
  c("Austria", "Austria", "Sweden", "Sweden", "Sweden", "Sweden"), 
  c("Austria", "Austria", "Austria"), 
  c("Austria", "Japan")
)