Подсчитать элементы многих списков

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.