R 2つの列ヘッダに転送つの列と下

Question

正しいグループ化されたデータの平均値が入力される：

X1 = c("aaa", "aaa", "aaa", "qqq", "qqq", "qqq") 
X2 = c("bbb", "bbb", "bbb", "rrr", "rrr", "rrr") 
X3 = c("ccc", "ccc", "ccc", "ttt", "ttt", "ttt") 
X4 = c("usa", "can", "usa", "ger", "rus", "ger") 
X5 = c(400, 888, 500, 300, 456, 500) 
df <- data.frame(X1,X2,X3,X4,X5) 

Iは、同じ国の平均で私の出力iとjを希望：

X1 X2 X3 i j 
aaa, bbb, ccc, 450, 888 
qqq, rrr, ttt, 400, 456 

私はdouble-aggregateとgroupingを試していますが、forループを避けることを望んでいますが、それでもそれを管理することはできません。

Answer 1

df$averages = ave(df[,"X5"], df[c("X1", "X2", "X3", "X4")], FUN = mean) 
aggregate(averages~., df[c("averages", "X1", "X2", "X3")], range) 
# X1 X2 X3 averages.1 averages.2 
#1 aaa bbb ccc  450  888 
#2 qqq rrr ttt  400  456 

Answer 2

ない私はあなたがあなたのようなあなたの出力を行いたい理由を理解してください。国ごとにグループ化します。

library(dplyr) 

> df %>% group_by(X4, X1, X2, X3) %>% summarise(i = sum(X5)) 
# A tibble: 4 x 5 
# Groups: X4, X1, X2 [?] 
     X4  X1  X2  X3  i 
    <fctr> <fctr> <fctr> <fctr> <dbl> 
1 can aaa bbb ccc 888 
2 ger qqq rrr ttt 800 
3 rus qqq rrr ttt 456 
4 usa aaa bbb ccc 900