Aggregation with Weighted Statistics, R

Language: Layout:

#R version 3.4.4 
options(width=200)

txt <- '   Temp V1  Weight
1  Hi    1  8 
2  Low   2  3 
3  Hi    3  9 
4  Low   4  9 '

df <- read.table(text=txt, header=TRUE)

df$V1_wtmean <- ave(df[c("V1", "Weight")], df$Temp, FUN=function(x) weighted.mean(x$V1, x$Weight))[[1]]
df$V1_wtsum <- ave(df[c("V1", "Weight")], df$Temp, FUN=function(x) sum(x$V1 * x$Weight))[[1]]
df
    
                         
agg_df <- do.call(data.frame,
                  aggregate(cbind(V1, V1_wtmean, V1_wtsum) ~ Temp, df, 
                            FUN=function(x) c(min=min(x), 
                                              p = quantile(x, 2, probs = seq(0, 1, 0.25))[2],
                                              mean=mean(x),
                                              p = quantile(x, 2, probs = seq(0, 1, 0.25))[4],
                                              max=max(x), 
                                              sum=sum(x)))
                  )
agg_df
                                
agg_df <- setNames(agg_df[c("V1.min", "V1.max", "V1.mean", "V1.sum", "V1_wtmean.min", "V1_wtsum.min")],
                   c("Min", "Max","Simple.Mean", "Simple.Sum", "Wgt.Mean", "Wgt.Sum"))
                                
agg_df

[ + ] Show input
Absolute running time: 0.54 sec, cpu time: 0.91 sec, memory peak: 45 Mb, absolute service time: 0,66 sec