R dplyr: eliminar várias colunas

Eu tenho um dataframe e uma lista de colunas nesse dataframe que gostaria de descartar. Vamos usar o irisconjunto de dados como exemplo. Eu gostaria de deixar cair Sepal.Lengthe Sepal.Widthe utilizar apenas as colunas restantes. Como faço isso usando selectou select_do dplyrpacote?

Aqui está o que tentei até agora:

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

Erro em -drop.cols: argumento inválido para operador unário

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

Erro em -drop.cols: argumento inválido para operador unário

iris %>% select(!drop.cols)

Erro em! Drop.cols: tipo de argumento inválido

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

Erro em! Drop.cols: tipo de argumento inválido

Sinto que estou perdendo algo óbvio, porque parece uma operação muito útil que já deveria existir. No Github, alguém postou um problema semelhante , e Hadley disse para usar 'indexação negativa'. Isso é o que (eu acho) eu tentei, mas sem sucesso. Alguma sugestão?

Verifique a ajuda em select_vars. Isso lhe dá algumas idéias extras sobre como trabalhar com isso.

No seu caso:

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

tente também

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

Além select(-one_of(drop.cols))disso, há algumas outras opções para descartar colunas select()que não envolvem a definição de todos os nomes de coluna específicos (usando os dados de amostra do dplyr starwars para mais variedade de nomes de coluna):

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 

Tenha cuidado com a select()função, porque ela é usada nos pacotes dplyr e MASS, então se o MASS estiver carregado, select () pode não funcionar corretamente. Para descobrir quais pacotes estão carregados, digite sessionInfo()e procure por ele na seção "outros pacotes anexados:". Se estiver carregado, digite detach( "package:MASS", unload = TRUE )e sua select()função deverá funcionar novamente.

Nós podemos tentar

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

Outra maneira é transformar as colunas indesejadas em NULL, isso evita os parênteses incorporados:

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

Se você tiver um caractere especial nos nomes das colunas, um selectou outro select_pode não funcionar conforme o esperado. Esta propriedade dplyrde usar ".". Para referir-se ao conjunto de dados na pergunta, a seguinte linha pode ser usada para resolver este problema:

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

Podes tentar

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