我想在日期框架上使用聚合函数,但对一列求和并取另一列的平均值。
这是一个示例数据框
Manager Category Amount SqFt
Joe Rent 150 500
Alice Rent 250 700
Joe Utilities 50 500
Alice Utilities 75 700
我不能做类似下面的事情。有没有简单的方法来做到这一点?
Avg_CPSF=aggregate(cbind(Amount,SqFt)~Manager,data=aaa,FUN=c(sum,mean)
最终我需要
Manager Amount SqFT
Joe 200 500
Alice 325 700
这样我就可以通过执行 Amount/SqFT 来计算每平方英尺的成本
最佳答案
有几种方法可以做到这一点。以下是我喜欢的一些(假设我们从 data.frame
开始,名为“mydf”):
使用 ave
和 unique
unique(within(mydf, {
Amount <- ave(Amount, Manager, FUN = sum)
SqFt <- ave(SqFt, Manager, FUN = mean)
rm(Category)
}))
# Manager Amount SqFt
# 1 Joe 200 500
# 2 Alice 325 700
使用
data.table
:library(data.table)
DT <- data.table(mydf)
DT[, list(Amount = sum(Amount), SqFt = mean(SqFt)), by = "Manager"]
# Manager Amount SqFt
# 1: Joe 200 500
# 2: Alice 325 700
使用“sqldf”:
library(sqldf)
sqldf("select Manager, sum(Amount) `Amount`,
avg(SqFt) `SqFt` from mydf group by Manager")
使用
aggregate
和 merge
:merge(aggregate(Amount ~ Manager, mydf, sum),
aggregate(SqFt ~ Manager, mydf, mean))
关于r - 同时按总和聚合一列,按平均值聚合另一列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14984589/