如何轉置列表的每個向量，給它們分配一個唯一的數字，並將其綁定到r中？

Question

我有以下列表，並想創建一個data.frame，其中每個列表（有很多）組合在一起。 這里是一個例子：

v11 <- c("was_on_the_moon", "safe", "best", "super")
v22 <- c("no", "yes", "three", "four")
dat1 <- data.frame(cbind(v11, v22))
v11 <- c("was_on_the_moon", "safe", "best", "super")
v22 <- c("no", "yes", "three", "four")
dat2 <- data.frame(cbind(v11, v22))
list_first <- list(dat1, dat2)

結果應如下所示：

  was_on_the_moon safe   best super 
1 yes              yes  three  four
2 no              sure  check  four

Answer 1

tidyverse解決方案：

map(list_first, ~ setNames(., c("var", "val"))) %>%
  bind_rows(.id = "id") %>%
  spread(var, val)

Answer 2

a <- unlist(myfiles, recursive = FALSE)
names <- a$V1
t(sapply(myfiles, function(x) setNames(x$V11, names)[match(names, x$V22)]))