将两个值列表组合到一个数据框中：错误参数意味着不同的行数

Question

我有两个列表，我想将它们组合成一个数据框。列表遵循这个基本逻辑。 list1 包含国家名称，list2 包含从 list1 中的每个值中提取的值。

list1<-list("A", "C", "B")
list2<-list(c("la la", "po sdfejn kfgndñflgn"), "characther(0)", c("4   5","baby", "yeah")) # note that characther(0) means that there is no data

我想要的结果是这样的：

output <- data.frame( V1 = c(rep("A",2), "C", rep("B",3)), V2 = c("la la", "po sdfejn kfgndñflgn", "characther(0)", "4   5", "baby", "yeah"))

我使用了我在此页面中看到的代码，例如：solution1 <- do.call(rbind, Map(data.frame, a = list1, b= list2))我经常这样做。此代码适用于示例。但是，当我将此公式用于我正在处理的大型列表时，我会收到以下错误消息：

Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = 
TRUE,  : arguments imply differing number of rows: 1, 0

我尝试过unlist(list1), unlist(list1)，但它不起作用。如果两个列表相同，那么问题的真正根源在哪里，我该如何解决才能获得所需的输出？

Answer 1

使用tidyverse 的解决方案。 dat 是最终输出。

library(tidyverse)

dat <- map2_df(list1, list2, ~data_frame(V1 = .x, V2 = .y))
dat
# # A tibble: 6 x 2
#   V1    V2                  
#   <chr> <chr>               
# 1 A     la la               
# 2 A     po sdfejn kfgndñflgn
# 3 C     characther(0)       
# 4 B     4   5               
# 5 B     baby                
# 6 B     yeah