R dplyr: Thả nhiều cột

Tôi có một khung dữ liệu và danh sách các cột trong khung dữ liệu đó mà tôi muốn bỏ. Hãy sử dụng iristập dữ liệu làm ví dụ. Tôi muốn bỏ Sepal.Lengthvà Sepal.Widthchỉ sử dụng các cột còn lại. Làm cách nào để thực hiện việc này bằng cách sử dụng selecthoặc select_từ dplyrgói?

Đây là những gì tôi đã thử cho đến nay:

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

Lỗi trong -drop.cols: đối số không hợp lệ cho toán tử một ngôi

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

Lỗi trong -drop.cols: đối số không hợp lệ cho toán tử một ngôi

iris %>% select(!drop.cols)

Lỗi trong! Drop.cols: loại đối số không hợp lệ

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

Lỗi trong! Drop.cols: loại đối số không hợp lệ

Tôi cảm thấy như tôi đang thiếu một cái gì đó rõ ràng bởi vì đây có vẻ như là một hoạt động khá hữu ích mà lẽ ra đã tồn tại. Trên Github, ai đó đã đăng một vấn đề tương tự và Hadley nói rằng sử dụng 'lập chỉ mục tiêu cực'. Đó là những gì (tôi nghĩ) tôi đã cố gắng, nhưng vô ích. Bất kỳ đề xuất?

Kiểm tra trợ giúp trên select_vars. Điều đó cung cấp cho bạn một số ý tưởng bổ sung về cách làm việc với điều này.

Trong trường hợp của bạn:

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

cũng cố gắng

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

Ngoài ra select(-one_of(drop.cols)), còn có một số tùy chọn khác để loại bỏ các cột bằng cách sử dụng select()không liên quan đến việc xác định tất cả các tên cột cụ thể (sử dụng dữ liệu mẫu dplyr starwars để có thêm một số tên cột khác nhau):

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 

Hãy cẩn thận với select()hàm, vì nó được sử dụng cả trong gói dplyr và MASS, vì vậy nếu MASS được tải, select () có thể không hoạt động bình thường. Để biết gói nào được tải, hãy nhập sessionInfo()và tìm gói đó trong phần "gói đính kèm khác:". Nếu nó được tải, hãy nhập detach( "package:MASS", unload = TRUE )và select()chức năng của bạn sẽ hoạt động trở lại.

Chúng ta có thể thử

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

Một cách khác là biến đổi các cột không mong muốn thành NULL, điều này tránh các dấu ngoặc đơn được nhúng:

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

Nếu bạn có một ký tự đặc biệt trong tên cột, selecthoặc select_có thể không hoạt động như mong đợi. Thuộc tính này của dplyrviệc sử dụng ".". Để tham chiếu đến tập dữ liệu trong câu hỏi, dòng sau có thể được sử dụng để giải quyết vấn đề này:

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

Bạn co thể thử

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