R dplyr: supprimer plusieurs colonnes

J'ai un dataframe et une liste de colonnes dans ce dataframe que j'aimerais supprimer. Prenons le irisjeu de données comme exemple. Je voudrais laisser tomber Sepal.Lengthet Sepal.Widthet utiliser uniquement les colonnes restantes. Comment faire cela en utilisant selectou à select_partir du dplyrpackage?

Voici ce que j'ai essayé jusqu'à présent:

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

Erreur dans -drop.cols: argument non valide pour l'opérateur unaire

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

Erreur dans -drop.cols: argument non valide pour l'opérateur unaire

iris %>% select(!drop.cols)

Erreur dans! Drop.cols: type d'argument non valide

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

Erreur dans! Drop.cols: type d'argument non valide

J'ai l'impression de manquer quelque chose d'évident car cela semble être une opération assez utile qui devrait déjà exister. Sur Github, quelqu'un a publié un problème similaire et Hadley a déclaré utiliser une `` indexation négative ''. C'est ce que (je pense) j'ai essayé, mais en vain. Aucune suggestion?

Consultez l'aide sur select_vars. Cela vous donne des idées supplémentaires sur la façon de travailler avec cela.

Dans ton cas:

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

Essayez aussi

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

Au-delà, select(-one_of(drop.cols))il existe quelques autres options pour supprimer des colonnes select()qui n'impliquent pas de définir tous les noms de colonnes spécifiques (en utilisant les exemples de données dplyr starwars pour une plus grande variété de noms de colonnes):

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 

Soyez prudent avec la select()fonction, car elle est utilisée à la fois dans les paquets dplyr et MASS, donc si MASS est chargé, select () peut ne pas fonctionner correctement. Pour savoir quels packages sont chargés, saisissez-les sessionInfo()et recherchez-les dans la section "autres packages attachés:". S'il est chargé, tapez detach( "package:MASS", unload = TRUE )et votre select()fonction devrait fonctionner à nouveau.

Nous pouvons essayer

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

Une autre façon consiste à muter les colonnes indésirables en NULL, cela évite les parenthèses incorporées:

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

Si vous avez un caractère spécial dans les noms de colonne, cela fonctionne selectou select_peut ne pas fonctionner comme prévu. Cette propriété dplyrd'utilisation ".". Pour faire référence à l'ensemble de données dans la question, la ligne suivante peut être utilisée pour résoudre ce problème:

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

Tu peux essayer

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