计算许多列表的元素

Question

我有10个列表，我想知道每个元素有多少次出现。

输入：

AAA AAA AAA
EEE III EEE
III DDD CCC
OOO OOO III

输出：

AAA 3 
EEE 2
III 3
OOO 2
DDD 1
CCC 1

Answer 1

df1 <- read.table(text="AAA AAA AAA
EEE III EEE
III DDD CCC
OOO OOO III")

table(unlist(df1))

 # AAA EEE III OOO DDD CCC 
 #   3   2   3   2   1   1 

Answer 2

假设它是list中的data.frame，并且tidyverse，我们可以使用list，map遍历gather将数据集转换为'long'格式，并将count转换为'value'列（功能也由@NelsonGon注释）

library(tidyverse)
map(lst1, ~ .x %>% 
                 gather  %>%
                 count(value))

注意：关于Count elements of many lists的帖子中提到的OP。