绑定包含嵌套数据帧列的 r 数据帧

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

首先展平数据(对于基rbinddata.frame 需要具有相同的列名(

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

在绑定之前将 data.frame 放入列表中(现在所有方法都有效(

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嵌套数据帧

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))