Penggantian untuk "ganti nama" di dplyr


118

Saya suka fungsi penggantian nama plyr rename. Saya baru-baru ini mulai menggunakan dplyr, dan bertanya-tanya apakah ada cara mudah untuk mengganti nama variabel menggunakan fungsi dari dplyr, yang semudah digunakan untuk plyr rename?

Jawaban:


148

dplyr versi 0.3 menambahkan rename()fungsi baru yang berfungsi seperti plyr::rename().

df <- rename(df, new_name = old_name)

7
Bisakah Anda menjelaskan sintaksnya? Itu lebih penting dari pada perintah. Saya menggunakan rename(TheDataFrame,OldVarName=NewVarName)tapi saya mengerti Error: Unknown variables: NewVarName.dan saya tidak mengerti mengapa.
s_a

2
@s_a Saya telah menambahkan klarifikasi. Ini akan muncul setelah ditinjau.
Ryan

4
Jika Anda mengalami masalah, mungkin menentukan paket secara eksplisit membantu dplyr::rename(iris, petal_length = Petal.Length).
Boern

2
Dua pengamatan cepat: perintah di atas harus ditugaskan ke dataframe untuk diterapkan iris <- dplyr::rename(iris, petal_length = Petal.Length)dan rename () tidak menangani nama variabel dengan spasi, misalnya, dplyr::rename(iris, petal_length = "petal length")menghasilkan kesalahan.
Anthony Simon Mielniczuk

2
Anda dapat menggunakan setNames()jika Anda mengganti nama kolom grosir:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
crazybilly

46

Versi dplyr berikutnya akan mendukung versi pilihan yang lebih baik yang juga mencakup penggantian nama:

> 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

2
FYI changesdiekspor (atau seharusnya)
hadley

2
Bagus. Hanya hal ini akan berarti pergeseran pemikiran di pihak pengguna, karena plyrfungsi rename menggunakan "old"="new"sedangkan dplyrpenggunaan new=oldyang membuatnya tetap konsisten dengan fungsi dplyr lainnya. Secara pribadi, saya tidak menganggapnya sebagai masalah - Anda terbiasa dengan hal-hal baru dengan cepat terutama jika itu berarti ada percepatan yang signifikan dalam pemrosesan data Anda.
vergilcw

3
Ini adalah fitur yang diinginkan, oleh karena itu pilihan kata kerjanya select. Tidak yakin kami memiliki sesuatu yang mengatakan pilih semua variabel dan dengan cara mengganti nama kolom ini.
Romain Francois

1
Mungkin untuk menghindari kebingungan dapatkah Anda mengedit posting Anda sehingga kode tersebut mencerminkan selectperilaku yang sebenarnya? Saya akan memberikan suara untuk cara mudah dplyrmenyimpan semua variabel dan hanya mengganti nama satu atau dua. :) Untuk saat ini saya akan terus memuat plyrdan menggunakan rename.
vergilcw

2
@RomainFrancois @aaronwolen Anda dapat mencapai apa yang diinginkan OP dengan menggunakan mtcars %>% select(matches(".*"),disp2=disp). Saya ingin solusi yang lebih pelit tetapi ini berfungsi dan mempertahankan semua kolom (meskipun bukan urutannya). disptidak diduplikasi.
farnsy

27

Anda benar-benar bisa menggunakan plyr 's renamefungsi sebagai bagian dari dplyrrantai. Saya pikir setiap fungsi yang a) mengambil a data.framesebagai argumen pertama dan b) mengembalikan sebuah data.framekarya untuk rangkaian . Berikut ini contohnya:

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

UPDATE: Versi saat ini daridplyr mendukung penggantian nama secara langsung sebagai bagian dari selectfungsi (lihat posting Romain Francois di atas). Pernyataan umum tentang penggunaan fungsi non-dplyr sebagai bagian dari dplyrrantai masih valid dan renamemerupakan contoh yang menarik.


5
Dalam kasus ini, yang terbaik adalah memuat dplyr setelah plyr. Dengan cara itu fungsi dplyr yang lebih cepat digunakan saat tersedia dan Anda dapat menggunakan mutate daripada dplyr :: mutate
Vincent

Sepertinya Anda benar tentang kemampuan menggunakan fungsi non-dplyr dalam rangkaian. mtcars%.% rename (c ("mpg", "cyl"), c ("mympg", "mycyl")) berfungsi di mana rename adalah fungsi yang ditentukan dalam jawaban saya.
Vincent

Saya mengubah urutan pemuatan dplyr dan plyr, terima kasih.
pengguna2503795

Ini adalah solusi yang layak, meskipun menampilkan diskusi yang menarik tentang kinerja pada data yang lebih besar, yang merupakan salah satu keuntungan utama dplyr. Terima kasih untuk sarannya!
vergilcw

tidak mengganti nama pekerjaan dengan referensi seperti setnames dari paket
data.table

9

Itu tidak terdaftar sebagai fungsi di dplyr (belum): http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf

Fungsi di bawah ini bekerja (hampir) sama jika Anda tidak ingin memuat plyr dan 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

Sunting: Komentar oleh Romain menghasilkan yang berikut (perhatikan bahwa fungsi perubahan membutuhkan 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

3
Satu-satunya masalah di sini adalah data disalin. Bukan masalah besar jika ini untuk bermain, misalnya mtcarsdll ... tetapi cukup dramatis jika Anda berurusan dengan data yang substansial. periksadplyr:::changes(mtcars, dat)
Romain Francois

1
Terima kasih atas komentar Romain. Apakah ada alasan perubahan tidak diekspor dari dplyr? Sepertinya fungsi yang cukup berguna.
Vincent

1
Saya kira sebagian besar hadley melihatnya sebagai alat pengembangan bagi kita.
Romain Francois

1
Ini pasti harus diekspor. Saya mungkin baru saja lupa
hadley

2

Meskipun tidak persis mengganti nama, dplyr::select_all()dapat digunakan untuk memformat ulang nama kolom. Contoh ini menggantikan spasi dan titik dengan garis bawah dan mengonversi semuanya menjadi huruf kecil:

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

1

Saya mencoba menggunakan dplyr :: rename dan saya mendapatkan kesalahan:

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

Saya malah menggunakan fungsi dasar R yang ternyata cukup sederhana dan efektif:

names(occ_5d)[1] = "code_5d"
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.