基於第三變量（數值）的聯合表

Question

前段時間，我問了一個關於創建購物籃數據的問題。現在我想創建一個類似的data.frame，但基於第三個變量。不幸的是，我遇到了問題。上一個問題：Effecient way to create market basket matrix in R
@shadow和@ SimonO101給了我很好的答案，但是我無法正確改變他們的anwser。我有以下數據：

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個變量）不再工作。我所查找的結果具有唯一的Customer作爲行名稱和唯一的Product作爲列名稱。並擁有數量價值（或0，如果不存在），這個數字可以由下式計算：

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

希望我的問題是清楚的，請評論，如果事情是不明確。

Answer 1

您可以使用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 

Answer 2

這類的問題是專爲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 

---

最近，使用dcast與data.table對象的方法是由@Arun實施應對FR #2627。好東西。您將不得不使用開發版本1.8.11。此刻，它應該被用作dcast.data.table。這是因爲dcast不是S3通用的，而是在reshape2包中。也就是說，你可以這樣做：

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))