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.frame、a）最初の引数として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チェーンの一部としてnon-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によるコメントは以下を生成します（changes関数には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"