R dplyr: Menurunkan beberapa kolom

Saya memiliki dataframe dan daftar kolom dalam dataframe yang ingin saya hapus. Mari gunakan irisdataset sebagai contoh. Saya ingin melepas Sepal.Lengthdan Sepal.Widthdan hanya menggunakan kolom yang tersisa. Bagaimana cara melakukannya menggunakan selectatau select_dari dplyrpaket?

Inilah yang saya coba sejauh ini:

drop.cols <- c('Sepal.Length', 'Sepal.Width')
iris %>% select(-drop.cols)

Kesalahan dalam -drop.cols: argumen tidak valid ke operator unary

iris %>% select_(.dots = -drop.cols)

Kesalahan dalam -drop.cols: argumen tidak valid ke operator unary

iris %>% select(!drop.cols)

Kesalahan dalam! Drop.cols: tipe argumen tidak valid

iris %>% select_(.dots = !drop.cols)

Kesalahan dalam! Drop.cols: tipe argumen tidak valid

Saya merasa seperti saya kehilangan sesuatu yang jelas karena ini sepertinya operasi yang cukup berguna yang seharusnya sudah ada. Di Github, seseorang memposting masalah serupa , dan Hadley mengatakan untuk menggunakan 'pengindeksan negatif'. Itulah yang (menurut saya) saya coba, tetapi tidak berhasil. Ada saran?

Periksa bantuan di select_vars. Itu memberi Anda beberapa gagasan tambahan tentang cara bekerja dengan ini.

Dalam kasus Anda:

iris %>% select(-one_of(drop.cols))

juga coba

## Notice the lack of quotes
iris %>% select (-c(Sepal.Length, Sepal.Width))

Di luar select(-one_of(drop.cols))ada beberapa opsi lain untuk menjatuhkan kolom menggunakan select()yang tidak melibatkan mendefinisikan semua nama kolom tertentu (menggunakan data sampel dplyr starwars untuk beberapa variasi lagi dalam nama kolom):

starwars %>% 
  select(-(name:mass)) %>%        # the range of columns from 'name' to 'mass'
  select(-contains('color')) %>%  # any column name that contains 'color'
  select(-starts_with('bi')) %>%  # any column name that starts with 'bi'
  select(-ends_with('er')) %>%    # any column name that ends with 'er'
  select(-matches('^f.+s$')) %>%  # any column name matching the regex pattern
  select_if(~!is.list(.)) %>%     # not by column name but by data type
  head(2)

# A tibble: 2 x 2
homeworld species
  <chr>     <chr>  
1 Tatooine  Human  
2 Tatooine  Droid 

Berhati-hatilah dengan select()fungsinya, karena ini digunakan baik di paket dplyr dan MASS, jadi jika MASS dimuat, pilih () mungkin tidak berfungsi dengan benar. Untuk mengetahui paket apa saja yang dimuat, ketik sessionInfo()dan cari di bagian "paket terlampir lainnya:". Jika dimuat, ketik detach( "package:MASS", unload = TRUE ), dan select()fungsi Anda akan berfungsi kembali.

Kita dapat mencoba

iris %>% 
      select_(.dots= setdiff(names(.),drop.cols))

Cara lain adalah dengan mengubah kolom yang tidak diinginkan menjadi NULL, ini menghindari tanda kurung yang disematkan:

head(iris,2) %>% mutate_at(drop.cols, ~NULL)
#   Petal.Length Petal.Width Species
# 1          1.4         0.2  setosa
# 2          1.4         0.2  setosa

Jika Anda memiliki karakter khusus dalam nama kolom, salah satu selectatau select_mungkin tidak berfungsi seperti yang diharapkan. Properti dplyrpenggunaan ini ".". Untuk merujuk ke kumpulan data dalam pertanyaan, baris berikut dapat digunakan untuk menyelesaikan masalah ini:

drop.cols <- c('Sepal.Length', 'Sepal.Width')
  iris %>% .[,setdiff(names(.),drop.cols)]

Anda dapat mencoba

iris %>% select(-!!drop.cols)