Відповіді:
dplyr версія 0.3 додала нову rename()
функцію, яка працює так само plyr::rename()
.
df <- rename(df, new_name = old_name)
dplyr::rename(iris, petal_length = Petal.Length)
.
iris <- dplyr::rename(iris, petal_length = Petal.Length)
а перейменування () не обробляє імена змінних з пробілами, наприклад, dplyr::rename(iris, petal_length = "petal length")
створює помилку.
setNames()
якщо ви замінюєте назви стовпців оптом:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
Наступна версія 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
changes
експортується (або має бути)
plyr
функція перейменування використовує, "old"="new"
тоді як dplyr
використання, new=old
яке робить його узгодженим з рештою функцій dplyr. Особисто я не вважаю це проблемою - ви швидко звикаєте до нових речей, особливо коли це означає значне прискорення вашої обробки даних.
select
. Не впевнені, що у нас є щось, що говорить, виберіть усі змінні і, до речі, перейменуйте цей стовпець.
select
поведінку насправді? Я б хотів проголосувати за простий dplyr
спосіб зберегти всі змінні та просто перейменувати одну-дві. :) Зараз я продовжую завантажувати plyr
та використовувати rename
.
mtcars %>% select(matches(".*"),disp2=disp)
. Я б хотів більш парсимонічне рішення, але це працює і зберігає всі стовпці (хоча не їх порядок). disp
не дублюється.
Ви можете використовувати plyr
«s rename
функцію як частина dplyr
ланцюгів. Я думаю, що кожна функція, яка a) приймає a data.frame
як перший аргумент, і b) повертає 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
ланцюгів, як і раніше, є дійсним і rename
є цікавим прикладом.
Він не вказаний як функція в 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
mtcars
тощо ..., але досить драматично, якщо ви маєте справу зі значними даними. перевіркаdplyr:::changes(mtcars, dat)
Хоча це точно не перейменовується, 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
Я спробував використовувати dplyr :: перейменувати, і я отримав помилку:
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"
rename(TheDataFrame,OldVarName=NewVarName)
але отримуюError: Unknown variables: NewVarName.
і не розумію, чому.