重命名数据框列表中的列

Question

我需要能够按名称重命名数据框列表中的列，这些数据框都可以预期具有相同的名称。

例如：

[[1]]
  col1 col2
1    1    2
2    2    3

[[2]]
  col1 col2
1    1    2
2    2    3

应该变成：

[[1]]
  ID col2
1    1    2
2    2    3

[[2]]
  ID col2
1    1    2
2    2    3

数据：

col1 <- c(1,2)
col2 <- c(2,3)
myList <- list(data.frame(col1,col2),data.frame(col1,col2))

我的尝试：

lapply(myList, function(x){
  names(myList[[x]])[names(myList[[x]]) =="col1"] <- "ID"
})

我哪里做错了？我需要基础 R。

Answer 1

您可以使用{tidyverse} 中的{dplyr} 和{purrr}

> library(purrr)
> library(dplyr)
> 
> df1 <- data.frame(col1 = 1:2, col2 = 3:4)
> df2 <- data.frame(col1 = 3:2, col2 = 6:7)
> 
> list(df1, df2) %>% map(~ rename(., ID = col1))
[[1]]
  ID col2
1  1    3
2  2    4

[[2]]
  ID col2
1  3    6
2  2    7

它也适用于字符串：list(df1, df2) %>% map(~ rename(., "ID" = "col1"))