如何对列表元素进行“分组”（在 Base R 中）

Question

代码

list(c(1,2), c('a', 'b'), c('a', 'b'), c(2,3)) -> li
## 
## [[1]]
## [1] 1 2
## 
## [[2]]
## [1] "a" "b"
## 
## [[3]]
## [1] "a" "b"
## 
## [[4]]
## [1] 2 3

Q：来自 table() 的所需输出。

Factor     c(1,2) c('a', 'b') c(2,3)
Sum           1        2        1

看起来很初级，但是我找不到解决方案