将数据帧转换为特定格式的频率表

Question

我有一个 data.frame，我正在尝试创建一个频率表来显示每行值的频率。所以我从这样的事情开始：

d <- data.frame(a=c(1,2,3), b=c(3,4,5), c=c(1,2,5))

看起来像这样：

  a b c
  1 3 1
  2 4 2
  3 5 5

我真正想要创建的是一个如下所示的应急 data.frame 或矩阵：

1, 2, 3, 4, 5, 6, 7, 8, 9
2, 0, 1, 0, 0, 0, 0, 0, 0
0, 2, 0, 1, 0, 0, 0, 0, 0
0, 0, 1, 0, 2, 0, 0, 0, 0

顶行只是一个标签行，不需要在最终结果中。但我把它加在那里是为了说明。每行显示数字 1:9 以及每个数字在起始数据的每一行中出现的次数。

我想不出一个简单的方法来创建它。虽然看起来table() 功能应该很有帮助，但我无法得到它给我任何爱。任何帮助或想法表示赞赏。

Answer 1

给你：

t(apply(d, 1, tabulate, nbin=9))
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,]    2    0    1    0    0    0    0    0    0
[2,]    0    2    0    1    0    0    0    0    0
[3,]    0    0    1    0    2    0    0    0    0

（尽管在此应用程序中可能无关紧要，tabulate()（在 table() 的代码中使用）也因其执行计算的速度令人印象深刻。）

---

编辑：tabulate() 未设置为处理 0 或负整数。如果你想要另一个班轮，你可以使用table()，做这样的事情：

d <- data.frame(a=c(0,-1,-2), b=c(3,4,5), c=c(1,2,5))

t(apply(d, 1, function(X) table(c(X, -9:9)) - 1))
     -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9
[1,]  0  0  0  0  0  0  0  0  0 1 1 0 1 0 0 0 0 0 0
[2,]  0  0  0  0  0  0  0  0  1 0 0 1 0 1 0 0 0 0 0
[3,]  0  0  0  0  0  0  0  1  0 0 0 0 0 0 2 0 0 0 0

Answer 2

另一种使用表格的解决方案

library(reshape)
d <- data.frame(a=c(1,2,3), b=c(3,4,5), c=c(1,2,5))
d2 <- melt(d)
d2$rows <- rep(1:nrow(d), ncol(d))
table(d2$rows, d2$value)