重命名数据框列表中的列

Question

I need to be able to rename columns by name in a list of dataframes that can all expected to have the same names.

For example:

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

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

Should become:

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

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

data:

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

my attempt:

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

Where did I go wrong? I need base R.

Answer 1

You can use {dplyr} and {purrr} from the {tidyverse}

> 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

It also works with strings: list(df1, df2) %>% map(~ rename(., "ID" = "col1"))