df <- as.data.frame(as.list(rnorm(40)))
names(df) <- sample(c("a","b","c","d","e"),size = 40,replace=TRUE)
df
это что-то вроде ваших данных? (Это ненормально, потому что фреймы данных обычно так не выглядят.
Тогда
split(as.numeric(df[1,]),colnames(df))
создаст список по именам столбцов
при условии, что все столбцы имеют такой же длины, как.data.frame, тогда будет создан data.frame.