R将命名/嵌套列表转换为数据框的有效方法

Question

我正在尝试将命名和嵌套列表转换为数据框（仅供参考，该列表是 st_nn 函数的产物，其中 nn 代表最近邻，d 代表距离）。下面是一个可重现的例子。

nn <- list(c(1,2), c(2,3))
d <- list(c(0, 100), c(11,43))
l <- list(nn, d)

df 是我想要的。

df <- data.frame(nn1 = c(1,2),
                nn2 = c(2,3),
                d1 = c(0, 11),
                d2 = c(100, 43))

下面的代码以某种特别的方式完成了这项工作，但我很好奇是否有更优雅的方法（最好是tidyverse 方法）。

df2 <- data.frame(rbindlist(l) %>% t()) %>% rename(nn1 = X1, nn2 = X2, d1 = X3, d2 = X4)

Answer 1

我们可以遍历list、rbind内部列表元素和cbind外部list

out <-  do.call(cbind.data.frame, lapply(l, function(x) do.call(rbind, x)))
names(out) <- c('nn1', 'nn2', 'd1', 'd2')
out
#  nn1 nn2 d1  d2
#1   1   2  0 100
#2   2   3 11  43

---

或者map和unnest_wider

library(dplyr)
library(purrr)
library(tidyr)
map_dfc(l, ~ transpose(.x) %>%
                 map_dfc(~ tibble(col1 = .x) %>%
                           unnest(c(col1)))) %>%
       set_names(c('nn1', 'nn2', 'd1', 'd2'))
# A tibble: 2 x 4
#    nn1   nn2    d1    d2
#* <dbl> <dbl> <dbl> <dbl>
#1     1     2     0   100
#2     2     3    11    43