У меня есть список, который содержит записи списка, и мне нужно транспонировать структуру. Первоначальная структура является прямоугольной, но имена в подписях не совпадают.
Вот пример:
ax <- data.frame(a=1,x=2)
ay <- data.frame(a=3,y=4)
bw <- data.frame(b=5,w=6)
bz <- data.frame(b=7,z=8)
before <- list( a=list(x=ax, y=ay), b=list(w=bw, z=bz))
Что я хочу:
after <- list(w.x=list(a=ax, b=bw), y.z=list(a=ay, b=bz))
Меня не интересуют имена результирующего списка (на любом уровне).
Ясно, что это можно сделать явно:
after <- list(x.w=list(a=before$a$x, b=before$b$w), y.z=list(a=before$a$y, b=before$b$z))
но это уродливо и работает только для структуры 2x2. Какой идиоматический способ сделать это?