Замена на «переименовать» в dplyr


118

Мне нравится функция переименования в plyr rename. Я недавно начал использовать dplyr, и мне было интересно, есть ли простой способ переименовать переменные с помощью функции из dplyr, которая так же проста в использовании, как и plyr rename?

Ответы:


148

В dplyr версии 0.3 добавлена ​​новая rename()функция, которая работает точно так же, как plyr::rename().

df <- rename(df, new_name = old_name)

7
Не могли бы вы объяснить синтаксис? Это важнее команды. Я использую, rename(TheDataFrame,OldVarName=NewVarName)но получаю Error: Unknown variables: NewVarName.и не понимаю почему.
s_a 05

2
@s_a Я добавил пояснение. Он должен появиться после просмотра.
Райан

4
Если у вас есть проблемы, возможно, вам поможет явное указание пакета dplyr::rename(iris, petal_length = Petal.Length).
Boern

2
Два быстрых наблюдения: указанная выше команда должна быть назначена фрейму данных, чтобы она вступила в силу, iris <- dplyr::rename(iris, petal_length = Petal.Length)а rename () не обрабатывает имена переменных с пробелами, например, dplyr::rename(iris, petal_length = "petal length")выдает ошибку.
Энтони Саймон Мельничук 08

2
Вы можете использовать, setNames()если заменяете имена столбцов оптом:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
crazybilly

46

Следующая версия dplyr будет поддерживать улучшенную версию select, которая также включает переименование:

> mtcars2 <- select( mtcars, disp2 = disp )
> head( mtcars2 )
                  disp2
Mazda RX4         160
Mazda RX4 Wag     160
Datsun 710        108
Hornet 4 Drive    258
Hornet Sportabout 360
Valiant           225
> changes( mtcars, mtcars2 )
Changed variables:
      old         new
disp  0x105500400
disp2             0x105500400

Changed attributes:
      old         new
names 0x106d2cf50 0x106d28a98

2
FYI changesэкспортирован (или должен быть)
Хэдли 03

2
Ницца. Единственное, что это будет означать сдвиг в мышлении со стороны пользователя, поскольку plyrфункция переименования использует "old"="new"тогда, когда dplyrиспользует, new=oldчто обеспечивает согласованность с остальными функциями dplyr. Лично я не считаю это проблемой - вы быстро привыкаете к новому, особенно когда это означает значительное ускорение обработки данных.
vergilcw 03

3
Это предполагаемая особенность, отсюда и выбор глагола select. Не уверен, что у нас есть что-то, что говорит выбрать все переменные и, кстати, переименовать этот столбец.
Romain Francois

1
Возможно, чтобы избежать путаницы, не могли бы вы отредактировать свой пост так, чтобы код отражал selectреальное поведение? Я бы проголосовал за простой dplyrспособ сохранить все переменные и просто переименовать одну или две. :) А пока продолжу загружать plyrи использовать rename.
vergilcw

2
@RomainFrancois @aaronwolen Вы можете добиться того, что хочет OP mtcars %>% select(matches(".*"),disp2=disp). Мне бы хотелось более экономного решения, но оно работает и сохраняет все столбцы (хотя и не их порядок). dispне дублируется.
farnsy

27

Вы можете использовать plyr«s renameфункцию как часть dplyrцепей. Я думаю, что каждая функция, которая а) принимает в data.frameкачестве первого аргумента и б) возвращает, data.frameработает для цепочки. Вот пример:

library('plyr')
library('dplyr')

DF = data.frame(var=1:5)

DF %>%
    # `rename` from `plyr`
    rename(c('var'='x')) %>%
    # `mutate` from `dplyr` (note order in which libraries are loaded)
    mutate(x.sq=x^2)

#   x x.sq
# 1 1    1
# 2 2    4
# 3 3    9
# 4 4   16
# 5 5   25

ОБНОВЛЕНИЕ: текущая версия dplyrподдерживает переименование напрямую как часть selectфункции (см. Сообщение Ромена Франсуа выше). Общее утверждение об использовании функций, отличных от dplyr, как части dplyrцепочек, по-прежнему актуально и renameявляется интересным примером.


5
В этом случае лучше всего загружать dplyr за plyr. Таким образом, используются более быстрые функции dplyr, когда они доступны, и вы можете использовать mutate вместо dplyr :: mutate
Винсент

Похоже, вы правы в том, что можете использовать функции, отличные от dplyr, в цепочке. mtcars%.% rename (c ("mpg", "cyl"), c ("mympg", "mycyl")) работает, где rename - это функция, определенная в моем ответе.
Винсент

Я изменил порядок загрузки dplyr и plyr, спасибо.
user2503795 01

Это достойный обходной путь, хотя вызывает интересное обсуждение производительности на больших данных, что является одним из основных преимуществ dplyr. Спасибо за предложение!
vergilcw 03

переименовывает работу по ссылке, например, имена наборов из пакета
data.table

9

Он не указан как функция в dplyr (пока): http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf

Функция ниже работает (почти) одинаково, если вы не хотите загружать и plyr, и dplyr.

rename <- function(dat, oldnames, newnames) {
  datnames <- colnames(dat)
  datnames[which(datnames %in% oldnames)] <- newnames
  colnames(dat) <- datnames
  dat
}

dat <- rename(mtcars,c("mpg","cyl"), c("mympg","mycyl"))
head(dat)

                  mympg mycyl disp  hp drat    wt  qsec vs am gear carb
Mazda RX4          21.0     6  160 110 3.90 2.620 16.46  0  1    4    4
Mazda RX4 Wag      21.0     6  160 110 3.90 2.875 17.02  0  1    4    4
Datsun 710         22.8     4  108  93 3.85 2.320 18.61  1  1    4    1
Hornet 4 Drive     21.4     6  258 110 3.08 3.215 19.44  1  0    3    1
Hornet Sportabout  18.7     8  360 175 3.15 3.440 17.02  0  0    3    2
Valiant            18.1     6  225 105 2.76 3.460 20.22  1  0    3    1

Изменить: комментарий Ромена дает следующее (обратите внимание, что для функции изменений требуется dplyr .1.1)

> dplyr:::changes(mtcars, dat)
Changed variables:
          old         new        
disp      0x108b4b0e0 0x108b4e370
hp        0x108b4b210 0x108b4e4a0
drat      0x108b4b340 0x108b4e5d0
wt        0x108b4b470 0x108b4e700
qsec      0x108b4b5a0 0x108b4e830
vs        0x108b4b6d0 0x108b4e960
am        0x108b4b800 0x108b4ea90
gear      0x108b4b930 0x108b4ebc0
carb      0x108b4ba60 0x108b4ecf0
mpg       0x1033ee7c0            
cyl       0x10331d3d0            
mympg                 0x108b4e110
mycyl                 0x108b4e240

Changed attributes:
          old         new        
names     0x10c100558 0x10c2ea3f0
row.names 0x108b4bb90 0x108b4ee20
class     0x103bd8988 0x103bd8f58

3
Единственная проблема здесь в том, что данные копируются. Ничего страшного , если это для игры, то есть и mtcarsт.д ... но весьма драматичными , если вы имеете дело с существенными данными. checkdplyr:::changes(mtcars, dat)
Romain Francois

1
Спасибо за комментарий Ромен. Есть ли причина, по которой изменения не экспортируются из dplyr? Кажется, довольно полезная функция.
Винсент

1
Я полагаю, что Хэдли в основном видит в нем инструмент разработки для нас.
Romain Francois

1
Его обязательно нужно экспортировать. Возможно, я просто забыл
Хэдли 03

2

Хотя это не совсем переименование, но dplyr::select_all()может использоваться для переформатирования имен столбцов. В этом примере пробелы и точки заменяются подчеркиванием и все переводятся в нижний регистр:

iris %>%  
  select_all(~gsub("\\s+|\\.", "_", .)) %>% 
  select_all(tolower) %>% 
  head(2)
  sepal_length sepal_width petal_length petal_width species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa

1

Я попытался использовать dplyr :: rename и получил сообщение об ошибке:

occ_5d <- dplyr::rename(occ_5d, rowname='code_5d')
Error: Unknown column `code_5d` 
Call `rlang::last_error()` to see a backtrace

Вместо этого я использовал базовую функцию R, которая оказалась довольно простой и эффективной:

names(occ_5d)[1] = "code_5d"
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.