Насколько я вижу здесь, вы получаете среднюю температуру за 8760 часов в году для каждой координаты, двумерный массив [143,134].Хотели бы вы получить один и тот же результат для каждого дня года?В этом случае вы можете сначала создать пустой массив для хранения ваших результатов
new.array <- array(dim=c(143,134,24))
Затем вы можете взять среднее из 24 наблюдений по очереди по марже 3, получая среднюю температуру за день.
library(abind)
new.array <- array(dim = c(143, 134))
for (i in seq(1, 8760, 24)) {
new.array <- abind::abind(new.array, apply(my.array[1:143, 1:134, i:(i+23)], MARGIN=c(1, 2), mean), along = 3)
}
dim(new.array)
Надеюсь, это поможет!