Геоинформационные системы (ГИС) и Дистанционное зондирование Земли
https://gis-lab.info/forum/
Код: Выделить всё
#skv--исходная таблица
skv.list<-split(skv,as.factor(skv[,1]))
skv.res<-NULL
for(i in (1:length(skv.list))){
skv.res<-rbind(skv.res,apply(skv.list[[i]],2,mean))
}
Извиняюсь за запоздалый ответ... Всё до примитива просто! Для приведённой в качестве примера таблицы:Максим Дубинин писал(а):см.
aggregate
tapply
Код: Выделить всё
>attach(skv_forum)
>skv_forum.mean<- aggregate(skv_forum, by=list(Num_skv), FUN=mean, na.rm=FALSE)а вот этого никогда не делайте, если не хотите получить головную боль. После attach имена (из таблицы) попадают в глобальное пространство имен, и перекрывают системные. При совпадении имен вызываемые программы из пакетов начнут работать неправильно, ладно если просто ошибку выдадут, а то могут и ерунды насчитать.ymr3R9Jge писал(а):>attach(skv_forum)
Да, всё прекрасно работает и с непосредственной ссылкой на переменные:gamm писал(а):а вот этого никогда не делайте, если не хотите получить головную боль...
Код: Выделить всё
>skv_forum.mean<- aggregate(skv_forum, by=list(skv_forum$Num_skv), FUN=mean, na.rm=FALSE)