Question

我有这个数据框mydf

structure(list(Driver = c("Crop agriculture", "Crop agriculture", 
"Infrastructure", "Infrastructure", "Mining", "Mining", "Mixed Agriculture", 
"Mixed Agriculture", "Other land use", "Other land use", "Pasture", 
"Pasture", "Tree crops", "Tree crops", "Water", "Water"), Period = c("1990-2000", 
"1990-2005", "1990-2000", "1990-2005", "1990-2000", "1990-2005", 
"1990-2000", "1990-2005", "1990-2000", "1990-2005", "1990-2000", 
"1990-2005", "1990-2000", "1990-2005", "1990-2000", "1990-2005"
), Total = c(120328.157829121, 301821.02190182, 12829.2774726025, 
10727.4383383233, 1087.58971425679, 639.851573022215, 27213.5917382956, 
19832.3424927037, 72326.7471322223, 64524.3243532213, 1064383.44273723, 
1347648.2335736, 7814.32273630087, 7672.0730281537, 20332.6943805768, 
17504.7712037337), n = c("n = 1669", "n = 783", "n = 298", "n = 151", 
"n = 20", "n = 7", "n = 1355", "n = 925", "n = 1623", "n = 851", 
"n = 10986", "n = 6039", "n = 316", "n = 211", "n = 466", "n = 244"
)), .Names = c("Driver", "Period", "Total", "n"), class = "data.frame", row.names = c(NA, 
-16L))

这个想法是获得该时期每个司机的百分比。我已经尝试了ddply函数并获取此行代码。

Percentage<- ddply(mydf, c("Driver", "Period"), summarise,
                   percent= ((Total/sum(Total))*100))

但是，我只获得所有细胞的100％值。有人知道我做错了吗？

Answer 1

在通话中，当您执行sum(Total)时，您使用的是组的总值，当与Total/sum(Total)一起使用时，只会为此数据/分组生成1。您可以使用df$Total调用中的sum()来计算整个数据集的总和。使用ddply，这将是

ddply(df, .(Driver, Period), summarise, Pct = Total/sum(df$Total) * 100)

这里是dplyr等价物

library(dplyr)
group_by(df, Driver, Period) %>% summarise(Pct = Total/sum(df$Total) * 100)

使用ddply函数获取数据框中的百分比

1 个答案: