나는 plyr의 이름 바꾸기 기능을 좋아합니다 rename. 나는 최근에 dplyr를 사용하기 시작했고 dplyr의 함수를 사용하여 변수의 이름을 쉽게 바꿀 수있는 방법이 있는지 궁금합니다 rename.
답변
dplyr 버전 0.3 rename()은 plyr::rename().
df <- rename(df, new_name = old_name)답변
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답변
실제로 사용할 수 있습니다 plyr 의 rename기능을 dplyr체인의 일부로 . 나는 data.framea) a를 첫 번째 인수로 취하고 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 기능의 합니다 (위의 Romain Francois 게시물 참조). dplyr가 아닌 함수를 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편집 : Romain의 주석은 다음을 생성합니다 (변경 기능에는 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답변
정확히 이름을 바꾸지는 않지만 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 :: 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"답변
