R dplyr: eliminar varias columnas

Tengo un marco de datos y una lista de columnas en ese marco de datos que me gustaría eliminar. Usemos el irisconjunto de datos como ejemplo. Me gustaría dejar caer Sepal.Lengthy Sepal.Widthy utilizar sólo las columnas restantes. ¿Cómo puedo hacer esto usando selecto select_desde el dplyrpaquete?

Esto es lo que he probado hasta ahora:

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

Error en -drop.cols: argumento no válido para el operador unario

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

Error en -drop.cols: argumento no válido para el operador unario

iris %>% select(!drop.cols)

Error en! Drop.cols: tipo de argumento no válido

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

Error en! Drop.cols: tipo de argumento no válido

Siento que me estoy perdiendo algo obvio porque parece una operación bastante útil que ya debería existir. En Github, alguien publicó un problema similar , y Hadley dijo que usara 'indexación negativa'. Eso es lo que (creo) he intentado, pero fue en vano. ¿Alguna sugerencia?

Consulte la ayuda sobre select_vars. Eso le da algunas ideas adicionales sobre cómo trabajar con esto.

En tu caso:

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

intenta también

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

Más allá, select(-one_of(drop.cols))hay un par de otras opciones para eliminar columnas select()que no implican la definición de todos los nombres de columna específicos (usando los datos de muestra dplyr starwars para obtener más variedad en los nombres de columna):

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 

Tenga cuidado con la select()función, porque se usa tanto en los paquetes dplyr como en MASS, por lo que si MASS está cargado, es posible que select () no funcione correctamente. Para saber qué paquetes están cargados, escríbalo sessionInfo()y búsquelo en la sección "otros paquetes adjuntos:". Si está cargado, escriba detach( "package:MASS", unload = TRUE )y su select()función debería funcionar nuevamente.

Podemos intentar

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

Otra forma es mutar las columnas no deseadas a NULL, esto evita los paréntesis incrustados:

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 usted tiene un carácter especial en los nombres de columna, ya sea selecto select_no funcionen como se esperaba. Esta propiedad dplyrde usar ".". Para hacer referencia al conjunto de datos en la pregunta, se puede utilizar la siguiente línea para resolver este problema:

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

Puedes probar

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