如何在R中按相同名称将列表中的数据框合并？

Question

我有一个包含许多数据框的列表。如果它们具有相同的名称，则希望将它们合并，即合并所有具有相同名称“a”和“b”的数据框。就像这样

a <- "aaaaa"
b <- "bbbbb"
c <- "ccccc"

g <- list(df1 <- data.frame(a,b), mf2 <- data.frame(b,b),
      mf1 <- data.frame(c,b), df2 <- data.frame(a,c),
      mf3 <- data.frame(b,c))
names(g) <- c("a","b","a","b","c")
> g
$`a`
      a     b
1 aaaaa bbbbb
$b
      b   b.1
1 bbbbb bbbbb
$a
      c     b
1 ccccc bbbbb
$b
      a     c
1 aaaaa ccccc
$c
      b     c
1 bbbbb ccccc
#I want to merge them by names and ideal result should be
$`a`
      a     b     c     b
1 aaaaa bbbbb ccccc bbbbb
$b
      b   b.1     a     c
1 bbbbb bbbbb aaaaa ccccc
$c
      b     c
1 bbbbb ccccc

我希望能按照名字将它们合并，理想结果应该像上面那样。我该如何操作？

- Codezy

Answer 1

这里是一个tidyverse的解决方案。我们可以按名称将列表拆分，然后使用bind_cols来组合每个组的数据框。

library(tidyverse)

g2 <- map(split(g, names(g)), bind_cols)
g2
# $`a`
#       a     b     c    b1
# 1 aaaaa bbbbb ccccc bbbbb
# 
# $b
#       b   b.1     a     c
# 1 bbbbb bbbbb aaaaa ccccc
# 
# $c
#       b     c
# 1 bbbbb ccccc

基本的 R 等价代码如下。

g2 <- lapply(split(g, names(g)), function(x) do.call(cbind, x))
g2
# $`a`
#     a.a   a.b   a.c   a.b
# 1 aaaaa bbbbb ccccc bbbbb
# 
# $b
#     b.b b.b.1   b.a   b.c
# 1 bbbbb bbbbb aaaaa ccccc
# 
# $c
#     c.b   c.c
# 1 bbbbb ccccc

- www