使用两个变量创建计数矩阵

Question

我有两列 - 一个唯一的ID列id和行程日day。我的目标是创建每个身份每天的计数矩阵（并包括所有天数，即使计数为零）

> test
   id day
1   3   3
2   4   4
3   1   4
4   2   3
5   2   5
6   2   4
7   1   1
8   5   4
9   1   1
10  3   2
11  2   2
12  4   2
13  2   4
14  2   5
15  4   5
16  3   4
17  5   3
18  3   2
19  5   5
20  3   4
21  1   3
22  2   3
23  2   5
24  5   2
25  3   2

输出应为以下内容，其中行代表id，列代表day：

> output
  1 2 3 4 5
1 2 0 1 1 0
2 0 1 2 2 3
3 0 3 1 2 0
4 0 1 0 1 1
5 0 1 1 1 1

我已尝试使用reshape包

进行以下操作

output <- reshape2::dcast(test, day ~ id, sum)

但它会引发以下错误：

Error in unique.default(x) : unique() applies only to vectors

为什么会发生这种情况以及dplyr或使用基础R的正确解决方案是什么？任何提示将不胜感激。

以下是数据：

> dput(test)
structure(list(id = c(3, 4, 1, 2, 2, 2, 1, 5, 1, 3, 2, 4, 2, 
2, 4, 3, 5, 3, 5, 3, 1, 2, 2, 5, 3), day = c(3, 4, 4, 3, 5, 4, 
1, 4, 1, 2, 2, 2, 4, 5, 5, 4, 3, 2, 5, 4, 3, 3, 5, 2, 2)), .Names = c("id", 
"day"), row.names = c(NA, -25L), class = "data.frame")

Answer 1

更容易看到字符变量的变化

id <- c('a', 'a', 'b', 'f', 'b', 'a')
day <- c('x', 'x', 'x', 'y', 'z', 'x')

test <- data.frame(id, day)



output <- as.data.frame.matrix(table(test))

这是最简单的方法...使用table()函数然后转换为data.frame

Answer 2

 ans <- tapply(test$id, test$day, 
               function(x) {
                 y <- table(x)
                 z <- rep(0, 5)
                 z[as.numeric(names(y))] <- y
                 z
               } )
 do.call("cbind", ans)
     1 2 3 4 5
[1,] 2 0 1 1 0
[2,] 0 1 2 2 3
[3,] 0 3 1 2 0
[4,] 0 1 0 1 1
[5,] 0 1 1 1 1