我有一个数据框列表。每个列表元素都有一个唯一的名称,但所有数据框中的列名称都相同。
我想将每个数据框的名称paste
列中,以便将cbind
它们一起合并为一个大数据框时,我可以区分它们。
示例数据;
LIST <- list(df1 = data.frame("ColA" = c(1:5), "ColB" = c(10:14)),
df2 = data.frame("ColA" = c(21:25), "ColB" = c(30:34)))
str(LIST)
List of 2
$ df1:'data.frame': 5 obs. of 2 variables:
..$ ColA: int [1:5] 1 2 3 4 5
..$ ColB: int [1:5] 10 11 12 13 14
$ df2:'data.frame': 5 obs. of 2 variables:
..$ ColA: int [1:5] 21 22 23 24 25
..$ ColB: int [1:5] 30 31 32 33 34
所需的输出;
List of 2
$ df1:'data.frame': 5 obs. of 2 variables:
..$ df1.ColA: int [1:5] 1 2 3 4 5
..$ df1.ColB: int [1:5] 10 11 12 13 14
$ df2:'data.frame': 5 obs. of 2 variables:
..$ df2.ColA: int [1:5] 21 22 23 24 25
..$ df2.ColB: int [1:5] 30 31 32 33 34
答案 0 :(得分:3)
由于您提到以后要使用cbind
,因此可以立即使用as.data.frame
as.data.frame(LIST)
# df1.ColA df1.ColB df2.ColA df2.ColB
#1 1 10 21 30
#2 2 11 22 31
#3 3 12 23 32
#4 4 13 24 33
#5 5 14 25 34
由于@RonakShah,您可以使用以下几行取回列表,以备不时之需
df1 <- as.data.frame(LIST)
split.default(df1, sub("\\..*", "", names(df1)))
答案 1 :(得分:2)
您可以在lapply
中使用全局分配<<-
进行此操作。
lapply(seq_along(LIST), function(x)
names(LIST[[x]]) <<- paste0(names(LIST)[x], ".", names(LIST[[x]])))
或使用Map
作为 @Sotos 的建议
LIST <- Map(function(x, y) {names(x) <- paste0(y, '.', names(x)); x}, LIST, names(LIST))
产量
str(LIST)
# List of 2
# $ df1:'data.frame': 5 obs. of 2 variables:
# ..$ df1.ColA: int [1:5] 1 2 3 4 5
# ..$ df1.ColB: int [1:5] 10 11 12 13 14
# $ df2:'data.frame': 5 obs. of 2 variables:
# ..$ df2.ColA: int [1:5] 21 22 23 24 25
# ..$ df2.ColB: int [1:5] 30 31 32 33 34
答案 2 :(得分:1)
嗨,您可以使用map2
来做到这一点:
library(tidyverse)
map2(mylist, names(mylist), ~rename_all(.x, function(z) paste(.y, z, sep = ".")))
编辑:
或按照建议使用imap
imap(mylist, ~rename_all(.x, function(z) paste(.y, z, sep = ".")))