使用数据框列重新绑定数据框

Question

我希望能够rbind具有data.frame本身的列的数据帧（不是数据帧列表）。

df <- data.frame(a = 1)
df$b <- data.frame(c = 2)
str(df)
# 'data.frame': 1 obs. of  2 variables:
#  $ a: num 1
#  $ b:'data.frame':    1 obs. of  1 variable:
#   ..$ c: num 2

df2 <- data.frame(a = 3)
df2$b <- data.frame(c = 4)

rbind(df, df2)

# Error in `.rowNamesDF<-`(x, value = value) : 
#   duplicate 'row.names' are not allowed
# In addition: Warning message:
# non-unique value when setting 'row.names': ‘1’ 

我知道dplyr::bind_rows(df, df)但我特别需要一个基本的 R解决方案。
（我快速了解了bind_rows是如何做到的，但据我所知，它遵循vctrs::vec_rbind中的C 代码，这对我来说是不可理解的。）

expected_output <- data.frame(a = c(1, 3))
expected_output$b <- data.frame(c = c(2, 4))
str(expected_output)
# 'data.frame': 2 obs. of  2 variables:
#  $ a: num  1 3
#  $ b:'data.frame':    2 obs. of  1 variable:
#   ..$ c: num  2 4

---

（上下文：此类数据帧来自 API 调用，使用jsonlite进行了简化解析。虽然我可以避免它，但我很欣赏它的便利性，无论如何我都对这个问题感到好奇）。

Answer 1

你也可以使用 unlist()

rbind(df, unlist(df2))
#   a c
# 1 1 2
# 2 3 4

注意：使用此路由，两个输入必须以相同的有意义的顺序具有相同数量的列。

Answer 2

尝试

df[rep(1:nrow(df), 2),]

但是，如果需要，您可能必须重命名行名称。

Answer 3

我们可以使用bind_rows （使用dplyr的开发版本

library(dplyr)
out <- bind_rows(df, df2)
out
#  a c
#1 1 2
#2 3 4

str(out)
#'data.frame':  2 obs. of  2 variables:
#$ a: num  1 3
#$ b:'data.frame':  2 obs. of  1 variable:
#  ..$ c: num  2 4