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)