Мой l oop с ddply не работает, потому что результаты совпадают в соответствии с условием

Question

Мой код работает, но не совсем так, как хотелось бы. Я хотел бы оценить среднее значение, SD, med, IQR, min и max для каждого столбца моего DF в соответствии с группой, определенной в первом столбце. Код работает, но для каждого желаемого параметра (среднее, SD, med, IQR, min и max) значения одинаковы для обеих групп. Не могли бы вы мне помочь, пожалуйста ? Спасибо.

DF<-data.frame(GROUP=c("G1", "G2", "G1", "G2", "G1"),
               x=rnorm(5),
               y=rnorm(5),
               z=rnorm(5))
std<-list()
for (i in 2:ncol(DF)) {
std[[i]]<-ddply(DF, .(GROUP), summarise, 
                mean=mean(DF[,i], na.rm=T),
                sd=sd(DF[,i], na.rm=T), 
                med=median(DF[,i], na.rm=T),
                Iqr=IQR(DF[,i], na.rm = T),
                min=min(DF[,i], na.rm=T), 
                max=max(DF[,i], na.rm=T))
}
std