将数据框列表合并为一个保留行名

Question

我知道将数据帧列表合并为一个的基础知识,如前所述.但是,我对保持行名称的聪明方法感兴趣.假设我有一个相当相等的数据帧列表,并将它们保存在命名列表中.

library(plyr)
library(dplyr)
library(data.table)

a = data.frame(x=1:3, row.names = letters[1:3])
b = data.frame(x=4:6, row.names = letters[4:6])
c = data.frame(x=7:9, row.names = letters[7:9])

l = list(A=a, B=b, C=c)

当我使用时do.call,列表名称与行名称组合:

> rownames(do.call("rbind", l))
[1] "A.a" "A.b" "A.c" "B.d" "B.e" "B.f" "C.g" "C.h" "C.i"

当我使用任何一个时rbind.fill,bind_rows或者rbindlist行名称被数字范围替换:

> rownames(rbind.fill(l))
> rownames(bind_rows(l))
> rownames(rbindlist(l))
[1] "1" "2" "3" "4" "5" "6" "7" "8" "9"

当我从列表中删除名称时,do.call产生所需的输出:

> names(l) = NULL
> rownames(do.call("rbind", l))
[1] "a" "b" "c" "d" "e" "f" "g" "h" "i"

那么有一个我缺少的功能可以更好地控制行名称吗？我确实需要不同上下文的名称,因此删除它们是次优的.

Answer 1

要保留rownames,您可以简单地执行以下操作:

do.call(rbind, unname(l))

#  x
#a 1
#b 2
#c 3
#d 4
#e 5
#f 6
#g 7
#h 8
#i 9

或者通过设置lto 的rownames 来强调NULL,这也可以通过以下方式完成:

do.call(rbind, setNames(l, NULL))