R dplyr: Upuść wiele kolumn

Mam ramkę danych i listę kolumn w tej ramce danych, które chciałbym usunąć. Użyjmy iriszbioru danych jako przykładu. Chciałbym spadać Sepal.Lengthi Sepal.Widthi używać tylko pozostałe kolumny. Jak to zrobić za pomocą selectlub select_z dplyrpakietu?

Oto, czego próbowałem do tej pory:

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

Błąd w -drop.cols: nieprawidłowy argument jednoargumentowego operatora

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

Błąd w -drop.cols: nieprawidłowy argument jednoargumentowego operatora

iris %>% select(!drop.cols)

Błąd w! Drop.cols: nieprawidłowy typ argumentu

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

Błąd w! Drop.cols: nieprawidłowy typ argumentu

Czuję, że brakuje mi czegoś oczywistego, ponieważ wydaje mi się, że jest to całkiem użyteczna operacja, która powinna już istnieć. Na Githubie ktoś opublikował podobny problem , a Hadley powiedział, że używa „indeksowania negatywnego”. To jest to, co (myślę) próbowałem, ale bezskutecznie. Jakieś sugestie?

Sprawdź pomoc dotyczącą select_vars. To daje dodatkowe pomysły, jak z tym pracować.

W Twoim przypadku:

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

też spróbuj

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

Poza tym select(-one_of(drop.cols))istnieje kilka innych opcji usuwania kolumn przy użyciu select(), które nie obejmują definiowania wszystkich konkretnych nazw kolumn (przy użyciu przykładowych danych dplyr starwars dla większej różnorodności nazw kolumn):

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 

Uważaj na tę select()funkcję, ponieważ jest używana zarówno w pakietach dplyr, jak i MASS, więc jeśli MASS jest załadowany, select () może nie działać poprawnie. Aby dowiedzieć się, jakie pakiety są ładowane, wpisz je sessionInfo()i poszukaj w sekcji „inne dołączone pakiety:”. Jeśli jest załadowany, wpisz detach( "package:MASS", unload = TRUE )i twoja select()funkcja powinna znowu działać.

Możemy spróbować

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

Innym sposobem jest zmutowanie niepożądanych kolumn na NULL, co pozwala uniknąć osadzonych nawiasów:

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

Jeśli masz specjalny znak w nazwach kolumn, albo selectczy select_może nie działać zgodnie z oczekiwaniami. Ta właściwość dplyrużycia ".". Aby odnieść się do zestawu danych w pytaniu, do rozwiązania tego problemu można użyć następującego wiersza:

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

Możesz spróbować

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