Мы можем получить все наборы данных в list
и переименовать сразу в list
lst1 <- lapply(mget(ls(pattern = "Dataframe\\d+")), function(x) {
names(x)[5] <- "newcol"
x})
Обновление
Если мы переименовываем столбцы в разных наборах данных с разнымиnames, а затем создайте вектор имен столбцов, который соответствует имени каждого столбца Dataframe
nm1 <- c("col5A", "col5B", "col5C", ..., "col5Z")
lst2 <- Map(function(x) {names(x)[5] <- y; x},
mget(ls(pattern = "Dataframe\\d+")),
nm1)
В приведенном выше коде мы переименовываем 5-й столбец в newcol.
Это также можно сделать, используя tidyverse
library(dplyr)
library(purrr)
map(mget(ls(pattern = "Dataframe\\d+")), ~ .x %>%
rename_at(5, ~ "newcol"))