R dplyr: удаление нескольких столбцов

У меня есть фрейм данных и список столбцов в этом фреймворке, который я хотел бы удалить. Давайте использовать irisнабор данных в качестве примера. Я хотел бы бросить Sepal.Lengthи Sepal.Widthи использовать только оставшиеся столбцы. Как это сделать с помощью пакета selectили select_из dplyrпакета?

Вот что я пробовал до сих пор:

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

Ошибка в -drop.cols: недопустимый аргумент унарного оператора

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

Ошибка в -drop.cols: недопустимый аргумент унарного оператора

iris %>% select(!drop.cols)

Ошибка в! Drop.cols: недопустимый тип аргумента

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

Ошибка в! Drop.cols: недопустимый тип аргумента

Я чувствую, что упускаю что-то очевидное, потому что это кажется довольно полезной операцией, которая уже должна существовать. На Github кто-то опубликовал аналогичную проблему , и Хэдли сказал использовать «отрицательную индексацию». Вот что (я думаю) я пробовал, но безуспешно. Какие-либо предложения?

Проверьте справку по select_vars. Это дает вам дополнительные идеи о том, как с этим работать.

В твоем случае:

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

также попробуйте

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

Кроме того, select(-one_of(drop.cols))существует пара других вариантов удаления столбцов с использованием, select()которые не включают определение всех конкретных имен столбцов (с использованием образцов данных dplyr starwars для большего разнообразия имен столбцов):

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 

Будьте осторожны с этой select()функцией, потому что она используется как в пакетах dplyr, так и в MASS, поэтому, если MASS загружен, select () может работать некорректно. Чтобы узнать, какие пакеты загружены, введите sessionInfo()и найдите его в разделе «другие прикрепленные пакеты:». Если он загружен, введите detach( "package:MASS", unload = TRUE ), и ваша select()функция должна снова заработать.

Мы можем попробовать

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

Другой способ - изменить нежелательные столбцы, чтобы NULLизбежать использования встроенных круглых скобок:

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

Если у вас есть специальный символ в именах столбцов, либо selectили select_не может работать , как ожидалось. Это свойство dplyrиспользования ".". Чтобы обратиться к набору данных в вопросе, для решения этой проблемы можно использовать следующую строку:

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

Можешь попробовать

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