Chain Merge with Reshape and Aggregate, R

Language: Layout:

options(width=200)

set.seed(992019)
df1 <- data.frame(Symbol = c("A", "A", "B", "C", "D", "D", "D", "E", "E", "A"),
                     Sample1 = sample(50, 10),
                     Sample2 = sample(50, 10),
                     Sample3 = sample(50, 10))
df2 <- data.frame(Symbol = c("B", "B", "B", "E", "A"),
                  Sample4 = sample(50, 5),
                  Sample5 = sample(50, 5),
                  Sample6 = sample(50, 5))
df3 <- data.frame(Symbol = c("A", "B", "C", "D", "E", "F"),
                  Sample7 = sample(50, 6),
                  Sample8 = sample(50, 6),
                  Sample9 = sample(50, 6))

# MERGE ALL BY Symbol
dfList <- list(df1, df2, df3)
mdf <- Reduce(function(...) merge(..., by="Symbol", all=TRUE), dfList)
    
# RESHAPE WIDE TO LONG
rdf <- reshape(mdf, varying=names(mdf)[-1], times=names(mdf)[-1],
               v.name = "Value", timevar="Sample",
               new.row.names = 1:1E4, direction = "long")
    
# AGGREGATE DATA
agg_raw <- aggregate(Value ~ Symbol, rdf, function(x) c(Mean=mean(x), Min=min(x), p25=unname(quantile(x)[2]), 
                                                       p50=median(x), p75=unname(quantile(x)[4]), Max=max(x)))
    
agg_df <- do.call(data.frame, agg_raw)
colnames(agg_df) <- gsub("Value.", "", colnames(agg_df))
agg_df

[ + ] Show input
Absolute running time: 0.64 sec, cpu time: 0.99 sec, memory peak: 33 Mb, absolute service time: 0,65 sec