计算列中值的频率[重复]

Question

我有不同项目的数据，这些项目具有“不太可能”、“可能”或“可能”的路径 A-E 和可能性。数据看起来像这样（但有更多的项目 - 所以更多的行）：

   Project   Pathway   Likelihood
1    Red        A       unlikely
2    Red        B       possible
3    Red        C       likely
4    Red        D       possible
5    Red        E       possible
6    Blue       A       possible
7    Blue       B       unlikely
8    Blue       C       possible
9    Blue       D       possible
10   Blue       E       unlikely
11   Green      A       unlikely
12   Green      B       possible
13   Green      C       likely
14   Green      D       possible
15   Green      E       possible
16   Yellow     A       unlikely
17   Yellow     B       unlikely
18   Yellow     C       possible
19   Yellow     D       possible
20   Yellow     E       likely

对于每个 Pathway，我想从 Likelihood 列中计算“不太可能”、“可能”和“可能”的数量，以便我可以将每个 Pathway 的数据框作为一行，并且不太可能、可能和可能为列。

有人知道最好的方法吗？

提前致谢！

Answer 1

假设你的数据被称为dat：

intm <- aggregate(Likelihood ~ Pathway, data=dat, FUN=table)
data.frame(Pathway=intm$Pathway, intm$Likelihood)

#  Pathway likely possible unlikely
#1       A      0        1        3
#2       B      0        2        2
#3       C      2        2        0
#4       D      0        4        0
#5       E      1        2        1

或全部在一行中：

do.call(data.frame, aggregate(Likelihood ~ Pathway, data=dat, FUN=table))

#  Pathway Likelihood.likely Likelihood.possible Likelihood.unlikely
#1       A                 0                   1                   3
#2       B                 0                   2                   2
#3       C                 2                   2                   0
#4       D                 0                   4                   0
#5       E                 1                   2                   1