Перейменуйте кілька стовпців за іменами

Хтось мав це вже запитати, але я не міг знайти відповіді. Скажімо, що я маю:

x = data.frame(q=1,w=2,e=3, ...and many many columns...)  

який найелегантніший спосіб перейменувати довільну підмножину стовпців, позицію яких я не обов’язково знаю, в деякі інші довільні імена?

наприклад, скажіть, що я хочу перейменувати "q"та "e"в, "A"і "B"який найелегантніший код для цього?

Очевидно, я можу зробити цикл:

oldnames = c("q","e")
newnames = c("A","B")
for(i in 1:2) names(x)[names(x) == oldnames[i]] = newnames[i]

Але цікаво, чи є кращий спосіб? Можливо, використовуючи деякі пакети? ( plyr::renameтощо)

setnamesз data.tableпакету буде працювати на data.frames або data.tables

library(data.table)
d <- data.frame(a=1:2,b=2:3,d=4:5)
setnames(d, old = c('a','d'), new = c('anew','dnew'))
d


 #   anew b dnew
 # 1    1 2    4
 # 2    2 3    5

Зверніть увагу, що зміни вносяться за допомогою посилання, тому копіювання не відбувається (навіть для data.frames!)

За допомогою dplyr ви зробите:

library(dplyr)

df = data.frame(q = 1, w = 2, e = 3)
    
df %>% rename(A = q, B = e)

#  A w B
#1 1 2 3

Або якщо ви хочете використовувати вектори, як пропонує @ Jelena-bioinf:

library(dplyr)

df = data.frame(q = 1, w = 2, e = 3)

oldnames = c("q","e")
newnames = c("A","B")

df %>% rename_at(vars(oldnames), ~ newnames)

#  A w B
#1 1 2 3

Л. Д. Ніколас Мей запропонував внести зміниrename_at була замінена rename_with:

df %>% 
  rename_with(~ newnames[which(oldnames == .x)], .cols = oldnames)

#  A w B
#1 1 2 3

Іншим рішенням для не надто великих кадрів є (спираючись на відповідь @thelatemail):

x <- data.frame(q=1,w=2,e=3)

> x
  q w e
1 1 2 3

colnames(x) <- c("A","w","B")

> x
  A w B
1 1 2 3

Ви також можете використовувати:

names(x) <- c("C","w","D")

> x
  C w D
1 1 2 3

Крім того, ви також можете перейменувати підмножину назв стовпців:

names(x)[2:3] <- c("E","F")

> x
  C E F
1 1 2 3

Ось найефективніший спосіб перейменування кількох стовпців за допомогою комбінації purrr::set_names()та кількох stringrоперацій.

library(tidyverse)

# Make a tibble with bad names
data <- tibble(
    `Bad NameS 1` = letters[1:10],
    `bAd NameS 2` = rnorm(10)
)

data 
# A tibble: 10 x 2
   `Bad NameS 1` `bAd NameS 2`
   <chr>                 <dbl>
 1 a                    -0.840
 2 b                    -1.56 
 3 c                    -0.625
 4 d                     0.506
 5 e                    -1.52 
 6 f                    -0.212
 7 g                    -1.50 
 8 h                    -1.53 
 9 i                     0.420
 10 j                     0.957

# Use purrr::set_names() with annonymous function of stringr operations
data %>%
    set_names(~ str_to_lower(.) %>%
                  str_replace_all(" ", "_") %>%
                  str_replace_all("bad", "good"))

# A tibble: 10 x 2
   good_names_1 good_names_2
   <chr>               <dbl>
 1 a                  -0.840
 2 b                  -1.56 
 3 c                  -0.625
 4 d                   0.506
 5 e                  -1.52 
 6 f                  -0.212
 7 g                  -1.50 
 8 h                  -1.53 
 9 i                   0.420
10 j                   0.957

Отже, нещодавно я сам зіткнувся з цим, якщо ви не впевнені, чи існують стовпці, і хочете перейменувати лише ті, які це роблять:

existing <- match(oldNames,names(x))
names(x)[na.omit(existing)] <- newNames[which(!is.na(existing))]

Спираючись на відповідь @ user3114046:

x <- data.frame(q=1,w=2,e=3)
x
#  q w e
#1 1 2 3

names(x)[match(oldnames,names(x))] <- newnames

x
#  A w B
#1 1 2 3

Це не залежить від конкретного впорядкування стовпців у xнаборі даних.

Це змінить всі випадки входження цих букв у всі імена:

 names(x) <- gsub("q", "A", gsub("e", "B", names(x) ) )

names(x)[names(x) %in% c("q","e")]<-c("A","B")

Ви можете отримати набір імен, зберегти його як список, а потім зробити групове перейменування на рядок. Хороший приклад цього, коли ви робите довгий до широкого переходу на наборі даних:

names(labWide)
      Lab1    Lab10    Lab11    Lab12    Lab13    Lab14    Lab15    Lab16
1 35.75366 22.79493 30.32075 34.25637 30.66477 32.04059 24.46663 22.53063

nameVec <- names(labWide)
nameVec <- gsub("Lab","LabLat",nameVec)

names(labWide) <- nameVec
"LabLat1"  "LabLat10" "LabLat11" "LabLat12" "LabLat13" "LabLat14""LabLat15"    "LabLat16" " 

Sidenote, якщо ви хочете об'єднати один рядок з усіма іменами стовпців, ви можете просто використати цей простий код.

colnames(df) <- paste("renamed_",colnames(df),sep="")

Якщо таблиця містить два стовпці з однаковим ім'ям, тоді код виглядає так,

rename(df,newname=oldname.x,newname=oldname.y)

Ви можете використовувати названий вектор.

З базою R (можливо, трохи незграбний):

x = data.frame(q = 1, w = 2, e = 3) 

rename_vec <- c(q = "A", e = "B")

names(x) <- ifelse(is.na(rename_vec[names(x)]), names(x), rename_vec[names(x)])

x
#>   A w B
#> 1 1 2 3

Або dplyrваріант із !!!:

library(dplyr)

rename_vec <- c(A = "q", B = "e") # the names are just the other way round than in the base R way!

x %>% rename(!!!rename_vec)
#>   A w B
#> 1 1 2 3

Останнє працює, оскільки оператор "великого вибуху"!!! змушує оцінювати список або вектор.

?`!!`

!!! сили-сплайсинг списку об’єктів. Елементи списку поєднані на місцях, що означає, що кожен з них стає єдиним аргументом.

Багато різновидів відповідей, тому я щойно написав функцію, щоб ви могли копіювати / вставляти.

rename <- function(x, old_names, new_names) {
    stopifnot(length(old_names) == length(new_names))
    # pull out the names that are actually in x
    old_nms <- old_names[old_names %in% names(x)]
    new_nms <- new_names[old_names %in% names(x)]

    # call out the column names that don't exist
    not_nms <- setdiff(old_names, old_nms)
    if(length(not_nms) > 0) {
        msg <- paste(paste(not_nms, collapse = ", "), 
            "are not columns in the dataframe, so won't be renamed.")
        warning(msg)
    }

    # rename
    names(x)[names(x) %in% old_nms] <- new_nms
    x
}

 x = data.frame(q = 1, w = 2, e = 3)
 rename(x, c("q", "e"), c("Q", "E"))

   Q w E
 1 1 2 3

Якщо один рядок даних містить імена, ви хочете змінити всі стовпці

names(data) <- data[row,]

Дано dataваш фрейм даних таrow номер рядка, що містить нові значення.

Потім ви можете видалити рядок, що містить імена з

data <- data[-row,]

Це функція, яка вам потрібна: Тоді просто передайте x у перейменуванні (X), і воно перейменує всі значення, що з'являються, і якщо його там немає, то помилка не буде

rename <-function(x){
  oldNames = c("a","b","c")
  newNames = c("d","e","f")
  existing <- match(oldNames,names(x))
  names(x)[na.omit(existing)] <- newNames[which(!is.na(existing))]
  return(x)
}

Є кілька відповідей, що згадують про функції dplyr::rename_withта rlang::set_namesвже. Вони окремі. ця відповідь ілюструє різницю між ними та використання функцій та формул для перейменування стовпців.

rename_withз dplyrпакета може використовувати функцію або формулу для перейменування виділених стовпців, заданих як .colsаргумент. Наприклад, передача імені функції toupper:

library(dplyr)
rename_with(head(iris), toupper, starts_with("Petal"))

Еквівалентно передачі формули ~ toupper(.x):

rename_with(head(iris), ~ toupper(.x), starts_with("Petal"))

Під час перейменування всіх стовпців ви також можете використовувати set_namesпакет rlang. Щоб зробити інший приклад, давайте використаємо paste0як функцію перейменування. pasteOприймає 2 аргументи, в результаті існують різні способи передачі другого аргументу, залежно від того, використовуємо ми функцію чи формулу.

rlang::set_names(head(iris), paste0, "_hi")
rlang::set_names(head(iris), ~ paste0(.x, "_hi"))

Те саме можна досягти rename_with, передавши фрейм даних як перший аргумент .data, функцію як другий аргумент .fn, усі стовпці як третій аргумент .cols=everything()і параметри функції як четвертий аргумент .... В якості альтернативи ви можете розмістити другий, третій та четвертий аргументи у формулі, наведеній як другий аргумент.

rename_with(head(iris), paste0, everything(), "_hi")
rename_with(head(iris), ~ paste0(.x, "_hi"))

rename_withпрацює лише з фреймами даних. set_namesє більш загальним і може також виконувати перейменування векторів

rlang::set_names(1:4, c("a", "b", "c", "d"))