您可以使用apply
和table
组合(前提是您将数据读入R):
dat <- data.frame(process1 = c('A', 'B', 'A', 'A', 'C'), process2 = c('B', 'C', 'B', 'B', 'A'), process3 = c('C', 'C', 'A', 'B', 'B'))
apply(dat, 2, table)
# process1 process2 process3
#A 3 1 1
#B 1 3 2
#C 1 1 2
apply
遍历dat
的列(这是2
所指的论点)并将table
应用于每个,它计算每个独特元素。有关更多信息,请参阅*apply
系列函数的帮助页面。
d.b上面的解决方案,lapply(dat, table)
,做同样的事情,但返回一个列表而不是矩阵。