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

【问题标题】：Create matrix of counts using two variables使用两个变量创建计数矩阵
【发布时间】：2017-05-31 16:49:10
【问题描述】：

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

输出应该如下，其中行代表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")

【问题讨论】：

table(d) 应该会给你你想要的输出。
这肯定是重复的。

标签： r dplyr

【解决方案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

【讨论】：

【解决方案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

【讨论】：