如何将存储在列表中的数据框名称放入每个数据框的列名中？

Question

目标: 为一系列数据框的某些列添加数据框名称作为前缀

问题: 使用lapply或循环时，似乎R不会将数据框的名称传递给方法。

数据:

A<-data.frame(column_1=c(1,2,3),column_2=c(4,5,6),column_3=c(7,8,9),column_4=c(10,11,12))
B<-data.frame(column_1=c(13,14,15),column_2=c(16,17,18),column_3=c(19,20,21),column_4=c(22,23,24))
C<-data.frame(column_1=c(25,26,27),column_2=c(28,29,30),column_3=c(31,32,33),column_4=c(34,35,36))
list_of_dataframes<-list(A,B,C)
names(list_of_dataframes)<-c("A","B","C")

这只是一个例子。实际上，我的数据框列表非常长。因此，手动使用'comment'添加名称不方便，就像这里所做的那样。 期望解决方案：

$A
  A_column_1 A_column_2 A_column_3 column_4
1          1          4          7       10
2          2          5          8       11
3          3          6          9       12

$B
  B_column_1 B_column_2 B_column_3 column_4
1         13         16         19       22
2         14         17         20       23
3         15         18         21       24

$C
  C_column_1 C_column_2 C_column_3 column_4
1         25         28         31       34
2         26         29         32       35
3         27         30         33       36

如您所见，数据框的名称位于列名中，除了第四列，我想从此操作中排除它。

我的尝试：

实际上，一些代码已经产生了期望的解决方案：

comment(list_of_dataframes$A) <- "A"
comment(list_of_dataframes$B) <- "B"
comment(list_of_dataframes$C) <- "C"


list_of_dataframes<-lapply(list_of_dataframes,function(dataframe){

  a<-comment(dataframe)


  colnames(dataframe)[c(1,2,3)]<-paste(a, colnames(dataframe)[c(1,2,3)], sep = "_") 

  return(dataframe)


}
)

list_of_dataframes

这种解决方案的问题在于我实际上有一个非常长的数据框列表，而且我有很多这样的列表。所以，我需要以自动化方式完成所有这些操作。 在上面的代码中，我使用“comment”单独输入每个数据框的名称。我需要自动获取每个数据框的名称。我该如何做？ 我尝试使用deparse(substitute(dataframe))，就像这样：

list_of_dataframes<-lapply(list_of_dataframes,function(dataframe){

  a<-deparse(substitute(dataframe))


  colnames(dataframe)<-paste(a, colnames(dataframe), sep = "_") 

  return(dataframe)


}
)

但是，正如您所看到的，数据框的名称似乎没有传递给lapply函数:

$A
  X[[i]]_column_1 X[[i]]_column_2 X[[i]]_column_3 X[[i]]_column_4
1               1               4               7              10
2               2               5               8              11
3               3               6               9              12

$B
  X[[i]]_column_1 X[[i]]_column_2 X[[i]]_column_3 X[[i]]_column_4
1              13              16              19              22
2              14              17              20              23
3              15              18              21              24

$C
  X[[i]]_column_1 X[[i]]_column_2 X[[i]]_column_3 X[[i]]_column_4
1              25              28              31              34
2              26              29              32              35
3              27              30              33              36

你有什么想法可以解决这个问题吗？

- R.Deilke

Answer 1

在基础R中，您可以执行以下操作：

Map(function(x, y) {names(x)[1:3] = paste(y, names(x)[1:3], sep = "_");x}, 
                   list_of_dataframes, names(list_of_dataframes))

或者使用从purrr中的imap函数。

library(dplyr)
purrr::imap(list_of_dataframes, 
             ~.x %>% rename_at(1:3, function(x) paste(.y, x, sep = "_")))


#$A
#  A_column_1 A_column_2 A_column_3 column_4
#1          1          4          7       10
#2          2          5          8       11
#3          3          6          9       12

#$B
#  B_column_1 B_column_2 B_column_3 column_4
#1         13         16         19       22
#2         14         17         20       23
#3         15         18         21       24

#$C
#  C_column_1 C_column_2 C_column_3 column_4
#1         25         28         31       34
#2         26         29         32       35
#3         27         30         33       36

- Ronak Shah

Answer 2

我们也可以使用 str_c。

library(dplyr)
library(purrr)
imap(list_of_dataframes, ~ {
            nm1 <- .y
            .x %>% rename_at(1:3, ~ str_c(nm1, ., sep="_"))
        })

- akrun