绑定包含嵌套data.frames列的data.frames

Question

在使用jsonlite导入多个.json文件之后，我一直在寻找绑定结果data.frames的方法，它包含一个或多个列，这些列本身就是嵌套的data.frames。我偶然发现了下面这篇文章https://r.789695.n4.nabble.com/data-frame-with-nested-data-frame-td3162660.html，它帮助突出了这个问题。

## Create nested data.frames
dat1 <- data.frame(x = 1)
dat1$y <- data.frame(y1 = "a", y2 = "A", stringsAsFactors = FALSE)

dat2 <- data.frame(x = 2)
dat2$y <- data.frame(y1 = "b", stringsAsFactors = FALSE)

这些都不起作用。

rbind(dat1, dat2)
dplyr::bind_rows(dat1, dat2)
data.table::rbindlist(list(dat1, dat2))

我发现了一些解决方法，我将在下面发布它们，以防它们对其他人有帮助。

Answer 1

这也可以在没有额外的包的情况下完成。数据帧需要在list内被部分地unlist，然后使用Reduce被merged。

Reduce(function(...) merge(..., all=TRUE), Map(unlist, list(dat1, dat2), recursive=FALSE))
#   x y.y1 y.y2
# 1 1    a    A
# 2 2    b <NA>

这也适用于两个以上的嵌套数据帧。

dat3 <- data.frame(x=2, y=data.frame(y1="c", y2="C", z="CC", stringsAsFactors=FALSE))

Reduce(function(...) merge(..., all=TRUE), Map(unlist, list(dat1, dat2, dat3), recursive=FALSE))
#   x y.y1 y.y2  y.z
# 1 1    a    A <NA>
# 2 2    b <NA> <NA>
# 3 2    c    C   CC

数据

dat1 <- structure(list(x = 1, y = structure(list(y1 = "a", y2 = "A"), class = "data.frame", 
                                    row.names = c(NA, -1L))), row.names = c(NA, -1L), 
          class = "data.frame")

dat2 <- structure(list(x = 2, y = structure(list(y1 = "b"), class = "data.frame", 
                                    row.names = c(NA, -1L))), row.names = c(NA, -1L), 
          class = "data.frame")

Answer 2

首先展平数据(对于基本rbind，data.frames需要具有相同的列名)

dplyr::bind_rows(
  jsonlite::flatten(dat1),
  jsonlite::flatten(dat2)
)

在绑定之前将data.frames放到一个列表中(现在所有方法都有效)

dat1$y <- list(dat1$y)
dat2$y <- list(dat2$y)

rbind(dat1, dat2)
dplyr::bind_rows(dat1, dat2)
data.table::rbindlist(list(dat1, dat2))

使用tidyverse嵌套data.frames

tib1 <- tidyr::nest(dat1, y = c(y))
tib2 <- tidyr::nest(dat2, y = c(y))
tib3 <- dplyr::bind_rows(tib1, tib2)
tidyr::unnest(tib3, c(y))