rbinding 与包含 R 中 NA 的空列表的列表答案

【问题标题】：rbinding with a list containing empty lists for NAs in Rrbinding 与包含 R 中 NA 的空列表的列表
【发布时间】：2018-07-02 08:03:01
【问题描述】：

我有一个嵌套列表，其中一些元素为空列表（提取）：

 str(myList)
 List of 100
 $ :'data.frame':   2 obs. of  10 variables:
  ..$ _index          : chr [1:2] "alias_fr" "alias_fr"
  ..$ _type           : chr [1:2] "triplet" "triplet"
  ..$ _id             : chr [1:2] "Q9327" "Q3122270"
 $ : list()
 $ :'data.frame':   1 obs. of  9 variables:
  ..$ _index          : chr "alias_fr"
  ..$ _type           : chr "triplet"
  ..$ _id             : chr "Q17009"

我需要使用 bind_rows 索引每个元素：

df <- bind_rows(myList, .id = "id")

不幸的是，空元素（示例中的第二个）被删除，结果是索引错误（索引移位）：

  id   _index   _type      _id
1  1 alias_fr triplet    Q9327
2  1 alias_fr triplet Q3122270
3  2 alias_fr triplet   Q17009

我的期望：

  id   _index   _type      _id
1  1 alias_fr triplet    Q9327
2  1 alias_fr triplet Q3122270
3  2 NA       NA      NA
3  3 alias_fr triplet   Q17009

我已经尝试了几种方法都没有成功：

Function to change Null to NA

Convert R list to dataframe with missing/NULL elements ...

有没有办法让 bind_rows 考虑空元素？

【问题讨论】：

你真的需要那些 NA 行吗？如果您只需要正确的 ID 号，则应使用命名列表。在这种情况下，空列表元素会被删除，但会保留正确的 ID。
是的，我需要这些行来进行将来的连接（每个 id 对应于语料库中的给定句子）。我没有任何其他元素可以使加入生效...

标签： r list na rbind

【解决方案1】：

假设

列表中的所有数据框共享相同的变量名称和列数。
嵌套列表中的第一个元素不是空列表。（这只是为了我以后方便，你可以选择任何你喜欢的数据框元素。）

我的方法是将不是数据框的元素更改为具有 1 行 NA 且与其他数据框具有相同列名的元素。

change_others_to_dataframe <- function(x) {
  # If x is a data frame, do nothing and return x
  # Otherwise, return a data frame with 1 row of NAs
  if (is.data.frame(x)) {return(x)}
  else {return(setNames(data.frame(matrix(ncol = ncol(myList[[1]]), nrow = 1)),
                        names(myList[[1]])))}
}

# Apply the written function above to every element in myList
mynewList <- lapply(myList, change_others_to_dataframe)
# "bind_rows" with mynewList
df <- bind_rows(mynewList, .id = "id")

我相信这会解决你的问题。

对于创建没有数据的数据框，您可以参考 SO 上的这些线程：

【讨论】：

谢谢你，你是老板！