r - 计算R中列表元素的数量和频率？

Question

我有一个很长的列表，其中包含不同数量的元素，这些元素也可以在同一字段中重复出现。
这是前五行的示例:

A <- list(c("JAMES","CHARLES","JAMES","RICHARD"),  
          c("JOHN","ROBERT","CHARLES"),  
          c("CHARLES","WILLIAM","CHARLES","MICHAEL","WILLIAM","DAVID","CHARLES","WILLIAM"),  
          c("CHARLES"),  
          c("CHARLES","CHARLES"))  

现在我想计算列表中每一行的元素数。
我想要的输出看起来类似于:

[1] 4  
[2] 3  
[3] 7  
[4] 1  
[5] 2  

除此之外，我想知道术语“CHARLES”在每一行中出现的频率。
根据我的示例，我想获得与此类似的输出:

[1] 1  
[2] 1  
[3] 3  
[4] 1  
[5] 2  

我想到了这个:

> table(A)  
Error in table(A) : all arguments arguments must have same length  
> sum(A)  
Error in sum(A) : invalid 'type' (list) of argument  

但不幸的是，我不知道如何处理这些错误消息，也不知道替代方案。
我知道列表的行数是:

> length(A)  
[1] 5  

但这并不能回答我的问题，不幸的是。我也找不到任何其他答案。
所以我想请你帮我计算一下这两个度量!

非常感谢您提前!

Answer 1

sapply(A, function(x) length(x))
[1] 4 3 8 1 2
un <- unique(unlist(A))
nm <- lapply(un, function(x) sapply(A, function(y) sum(y == x)))
names(nm) <- un
nm
$JAMES
[1] 2 0 0 0 0

$CHARLES
[1] 1 1 3 1 2

$RICHARD
[1] 1 0 0 0 0

$JOHN
[1] 0 1 0 0 0

$ROBERT
[1] 0 1 0 0 0

$WILLIAM
[1] 0 0 3 0 0

$MICHAEL
[1] 0 0 1 0 0

$DAVID
[1] 0 0 1 0 0