dplyr에서 "이름 바꾸기"대체

dplyr에서 "이름 바꾸기"대체

---

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

---

I tried to use dplyr::rename and I get an error:

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

I instead used the base R function which turns out to be quite simple and effective:

names(occ_5d)[1] = "code_5d"

참고URL : https://stackoverflow.com/questions/21502465/replacement-for-rename-in-dplyr