如何計算考慮第一個數據框中的一個變量的百分比是來自另一個數據框中不同值的彙總總和

Question

當我嘗試計算百分比時，有兩個數據框出現問題。在第一個數據框中，我累積了一個人進行的不同操作的金額。這些數據幀，第一個是與每個人的信息的原始數據幀：

ID  Final.Amount 
1 0001   50 
2 0002   30 
3 0003   90 
4 0004   50 

我wanto calcule的百分比與每個ID：

z=data.frame(ID=c("0001","0002","0002","0001","0003","0003","0004","0004","0001","0003"),Amount=c(10,20,10,30,50,10,40,10,10,30),Place=c("KFC","Marcys","Ezone","Ezone","Italocafe","Italocafe","KFC","Walmart","KFC","KFC")) 

當我聚集我有此之後放置變量，我嘗試了plyr但我沒有得到結果。我想找一個這樣的：

ID  Final.Amount Perct.KFC Perct.Macys Perct.Ezonne Perct.Italocafe Percent.Walmart 
1 0001   50  40%   0%   60%   0%    0% 
2 0002   30  0%   67%   33%   0%    0% 
3 0003   90  33%   0%   0%   67%    0% 
4 0004   50  80%   0%   0%   0%    20% 

我試着用plyr，但我沒有得到正確的結構，我不知道我是否需要sqldf或其他包裝。

Answer 1

使用reshape2 A液：

library(reshape2) 
d <- acast(z, ID~Place, value.var="Amount", fun=sum) 
prop.table(d,1)*100 

其中給出：

 Ezone Italocafe  KFC Marcys Walmart 
0001 60.00000 0.00000 40.00000 0.00000  0 
0002 33.33333 0.00000 0.00000 66.66667  0 
0003 0.00000 66.66667 33.33333 0.00000  0 
0004 0.00000 0.00000 80.00000 0.00000  20 

Answer 2

下面是使用data.table和基地的reshape來重寫答案。計算百分比後，我必須求助於塑造功能。

require(data.table) 
w <- data.table(z) 
w1 <- w[, list(val=sum(Amount)), by=list(ID, Place)][, list(Place=Place, 
         percent=val/sum(val) * 100), by=ID] 
reshape(w1, idvar="ID", timevar="Place", direction="wide") 

#  ID percent.KFC percent.Ezone percent.Marcys percent.Italocafe percent.Walmart 
# 1: 0001 40.00000  60.00000    NA    NA    NA 
# 2: 0002   NA  33.33333  66.66667    NA    NA 
# 3: 0003 33.33333   NA    NA   66.66667    NA 
# 4: 0004 80.00000   NA    NA    NA    20