4

前段时间我问了一个关于创建购物篮数据的问题。现在我想创建一个类似的 data.frame，但基于第三个变量。不幸的是，我在尝试时遇到了问题。上一个问题：在 R @shadow 和 @SimonO101 中创建市场篮子矩阵的有效方法
给了我很好的答案，但我无法正确更改他们的答案。我有以下数据：

Customer <- as.factor(c(1000001,1000001,1000001,1000001,1000001,1000001,1000002,1000002,1000002,1000003,1000003,1000003))
Product <- as.factor(c(100001,100001,100001,100004,100004,100002,100003,100003,100003,100002,100003,100008))
input <- data.frame(Customer,Product)

我现在可以通过以下方式创建列联表：

input_df <- as.data.frame.matrix(table(input))

但是，我有第三个（数字）变量，我想将其作为表中的输出。

Number <- c(3,1,-4,1,1,1,1,1,1,1,1,1) 
input <- data.frame(Customer,Product,Number)

现在代码（当然，现在有 3 个变量）不再起作用了。我正在寻找的结果具有唯一的客户作为行名和唯一的产品作为列名。并且有 Number 作为值（如果不存在，则为 0），这个数字可以通过以下方式计算：

input_agg <- aggregate( Number ~ Customer + Product, data = input, sum)

希望我的问题很清楚，如果有不清楚的地方，请发表评论。

4

2 回答 2

6

您可以xtabs 为此使用：

R> xtabs(Number~Customer+Product, data=input)

         Product
Customer  100001 100002 100003 100004 100008
  1000001      0      1      0      2      0
  1000002      0      0      3      0      0
  1000003      0      1      1      0      1
于 2013-10-22T14:30:43.073 回答
4

此类问题专为reshape2::dcast...

require( reshape2 )
#  Too many rows so change to a data.table.
dcast( input , Customer ~ Product , fun = sum , value.var = "Number" )
#  Customer 100001 100002 100003 100004 100008
#1  1000001      0      1      0      2      0
#2  1000002      0      0      3      0      0
#3  1000003      0      1      1      0      1

最近，@Arun 响应FR #2627dcast实现了使用对象的方法。好东西。您将不得不使用开发版本1.8.11。目前，它也应该用作. 这是因为它还不是 S3 通用包。也就是说，你可以这样做：data.tabledcast.data.tabledcastreshape2

require(reshape2)
require(data.table)
input <- data.table(input)   
dcast.data.table(input , Customer ~ Product , fun = sum , value.var = "Number")
#    Customer 100001 100002 100003 100004 100008
# 1:  1000001      0      1      0      2      0
# 2:  1000002      0      0      3      0      0
# 3:  1000003      0      1      1      0      1

这应该在更大的数据上工作得很好，并且应该比reshape2:::dcast同样快得多。

或者，您可以尝试reshape:::cast可能会或可能不会崩溃的版本......试试吧！

require(reshape)
input <- data.table( input )
cast( input , Customer ~ Product , fun = sum , value = .(Number) )
于 2013-10-22T14:29:23.213 回答