使用lapply更改列表中数据框的列名

Question

我想根据数据框的名称在列表中的数据框中添加一个前缀：

list1 <- vector("list", 6)

list1 <- lapply(list1, function(x) data.frame(replicate(10,sample(0:1,10,rep=TRUE))))
list1 <- lapply(list1, function(x) {colnames(x)<- letters[1:10];x})
names(list1) <- LETTERS[1:6]

在这一点上，我想用类似的内容更改colnames：

    colnames(list1[[1]]) <- paste(names(list1[1]), colnames(list1[[1]]), sep=".")
    colnames(list1[[1]])
    [1] "A.a" "A.b" "A.c" "A.d" "A.e" "A.f" "A.g" "A.h" "A.i" "A.j"

我该如何在六个dataframes中的每个范围内依次进行此操作？我尝试过

lapply(list1, function(x) {colnames(list1[x]) <- paste(names(list1[x]), colnames(list1[[x]]), sep=".");x })

，但

Error in list1[x] : invalid subscript type 'list'

我想这是关于骑自行车的名称1？还是如何完成？

感谢您的帮助。

Answer 1

使用基本R，您可以使用MAP。

Map(function(x, y) setNames(x, paste(names(x), y, sep = ".")), list1, names(list1))

这是使用purrr的另一种方式。 i函数（例如，imap，imodify）将在as parameter .y中传递列表项目的名称，以及.x 。

library(purrr)

imodify(list1, ~ set_names(.x, paste(names(.x), .y, sep = ".")))

Answer 2

另一种方式，如果您已经准备好数据框，并且想在每个数据框的名称之前将列前缀：

## example dataframes
df1 <- data.frame(col1 = runif(1))
df2 <- data.frame(col1 = runif(1))

library(purrr)

dataframes_to_change = c('df1','df2')

walk(dataframes_to_change, ~{
    df <- get(.x)
    names(df) <- paste(.x, names(df), sep = '_')
    assign(.x, value = df, pos = 1)
})

Answer 3

修改attr ibutes可能更快。

Map(`attr<-`, list1, 'names', Map(paste, names(list1), lapply(list1, attr, 'names'), sep='.'))