dplyr의 "이름 바꾸기" 대체

dplyr의 "이름 바꾸기" 대체

나는 플라이어의 이름 바꾸기 기능을 좋아합니다.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쇠사슬a)가 취하는 모든 함수는data.frame첫 번째 인수로 b)가 a를 반환합니다.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

아래 기능은 플라이어와 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"

dplyr >= 1.0.0

에 더하여dplyr::rename의 최신 버전으로dplyris rename_with ()

rename_with는 함수를 사용하여 열 이름을 변경합니다.

다음을 사용하여 깔끔하게 선택된 열 집합에 함수를 적용할 수 있습니다..cols인수:

iris %>% 
  dplyr::rename_with(.fn = ~ gsub("^S", "s", .), .cols = where(is.numeric))

    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
3            4.7         3.2          1.3         0.2     setosa
4            4.6         3.1          1.5         0.2     setosa
5            5.0         3.6          1.4         0.2     setosa

언급URL : https://stackoverflow.com/questions/21502465/replacement-for-rename-in-dplyr