Вот другая идея - используйте тот факт, что data.table
может хранить data.frame
(на самом деле, учитывая ваш вопрос, возможно, вам даже не нужно работать со списками списков и может просто работать с data.table
]:
library(data.table)
dt = as.data.table(before)
after = as.list(data.table(t(dt)))