Мы можем split
набор данных в list
из data.frame
library(matrixStats)
lst1 <- split.default(df1, as.integer(gl(ncol(df1), 10, ncol(df1))))
Если нам нужны отдельные mean/median
sapply(lst1, function(x) mean(unlist(x), na.rm = TRUE))
sapply(lst1, function(x) median(unlist(x), na.rm = TRUE))
данные
set.seed(24)
df1 <- as.data.frame(matrix(sample(c(NA, 1:10), 25* 10,
replace = TRUE), ncol = 25))