comment déposer des colonnes en passant le nom de la variable avec dplyr?

J'ai un df comme suit:

a <- data_frame(keep=c("hello", "world"),drop = c("nice", "work"))
a
Source: local data frame [2 x 2]
   keep  drop
  (chr) (chr)
1 hello  nice
2 world  work

Je peux utiliser a %>% select(-drop) à la chute de la colonne sans problème. cependant, si je veux passer une variable à présent drop colonne, puis il retourne une erreur.

name <- "drop"
a  %>% select(-(name))
Error in -(name) : invalid argument to unary operator

source d'informationauteur HappyCoding

  1. 23

    Vous pouvez utiliser one_of pour trouver les positions des colonnes et ensuite utiliser - à tomber, select(-one_of(name))si vous cochez ?selectl'utilisation est documentée dans le Goutte variable dans la section Exemples:

    name <- "drop"
a %>% select(-one_of(name))

# A tibble: 2 × 1
#   keep
#  <chr>
#1 hello
#2 world

    Ou avec select_vous devez coller - avec les noms de colonnes pour les laisser tomber et passer à l'collé les noms de colonne de la .dots paramètre si il y a plus d'une colonne à supprimer:

    name <- "drop"
a %>% select_(.dots = paste("-", name))

# A tibble: 2 × 1
#   keep
#  <chr>
#1 hello
#2 world
  2. 4

    Vous pouvez simplement utiliser 

    a <- data_frame(keep=c("hello", "world"),drop = c("nice", "work"))
select(a, -starts_with(name))
#   Source: local data frame [2 x 1]
#
#   keep
#   (chr)
# 1 hello
# 2 world

    vous avez à la recherche pour certains déjà écrit que des solutions. Veuillez lire le document ici Sélectionnez/renommer des variables par nom.DPLYR

    J'espère que le fait le travail pour vous 🙂
    @Psidom merci pour la mise à jour de votre réponse.. mais je vais demander upvoters pour voter pour moi aussi, comme récemment, je suis devenu un utilisateur actif et je suis toujours à obtenir les privilèges de base sur stackoverflow.

  3. 1

    Nous pouvons utiliser select avec setdiff

    a %>%
    select_(setdiff(names(.), name))
# A tibble: 2 × 1
#   keep
#   <chr>
#1 hello
#2 world
  4. 1

    Un peu plus de possibilités:

    a %>% within(rm(drop))
a %>% `[<-`("drop",value=NULL)
a %>% magrittr::inset("drop",value=NULL)
a %>% purrr::modify_at("drop",~NULL)