R dplyr: Upuść wiele kolumn

Question 1

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?

Question 2

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

W Twoim przypadku:

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

Question 3

też spróbuj

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

Question 4

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

Question 5

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ć.

Question 6

Możemy spróbować

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

Question 7

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

Question 8

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)]

Question 9

Możesz spróbować

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

Answer 1

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?

Answer 2

128

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

W Twoim przypadku:

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

phiver
źródło

Dzięki. Z jakiegoś powodu to działa iris, ale nie w mojej rzeczywistej ramce danych (iris był to przykład zabawki). Moja ramka danych zawiera 4558 wierszy i 147 kolumn. Otrzymałem komunikat o błędzie Error in eval(x$expr, data, x$env) : variable names are limited to 10000 bytes. Masz jakiś pomysł, dlaczego tak się dzieje?

Navaneethan Santhanam

1

Ach, wygląda na to, że popełniłem błąd. Przypadkowo użyłem select_varszamiast select. Teraz działa idealnie!

Navaneethan Santhanam

6

Gdzie mamy się dowiedzieć o wbudowanych funkcjach one_of? Chyba że brakuje mi czegoś, czego nie ma w dokumentacji pakietu ( help(package='dplyr')).

geoteoria,

4

@geotheory, właściwie udokumentowano one_of. zobacz help(one_of, package = "dplyr"). Przynajmniej jest w wersji pakietu 0.5.0. Ale pomocne jest czytanie blogów, które Hadley publikuje, gdy są aktualizacje jednego z jego pakietów. Niektóre funkcje są udokumentowane w innych funkcjach. Niestety wymaga to przeczytania całej dokumentacji, co najczęściej robię, gdy chcę czegoś, co nie jest od razu oczywiste lub możliwe w przypadku funkcji.

phiver

11

Dzięki. Skąd w pierwszej kolejności dowiadujesz się o tych funkcjach, jeśli chodzi o dokumentację?

geoteoria

Answer 3

Dzięki. Z jakiegoś powodu to działa iris, ale nie w mojej rzeczywistej ramce danych (iris był to przykład zabawki). Moja ramka danych zawiera 4558 wierszy i 147 kolumn. Otrzymałem komunikat o błędzie Error in eval(x$expr, data, x$env) : variable names are limited to 10000 bytes. Masz jakiś pomysł, dlaczego tak się dzieje?

Navaneethan Santhanam

Answer 4

1

Ach, wygląda na to, że popełniłem błąd. Przypadkowo użyłem select_varszamiast select. Teraz działa idealnie!

Navaneethan Santhanam

Answer 5

6

Gdzie mamy się dowiedzieć o wbudowanych funkcjach one_of? Chyba że brakuje mi czegoś, czego nie ma w dokumentacji pakietu ( help(package='dplyr')).

geoteoria,

Answer 6

4

@geotheory, właściwie udokumentowano one_of. zobacz help(one_of, package = "dplyr"). Przynajmniej jest w wersji pakietu 0.5.0. Ale pomocne jest czytanie blogów, które Hadley publikuje, gdy są aktualizacje jednego z jego pakietów. Niektóre funkcje są udokumentowane w innych funkcjach. Niestety wymaga to przeczytania całej dokumentacji, co najczęściej robię, gdy chcę czegoś, co nie jest od razu oczywiste lub możliwe w przypadku funkcji.

phiver

Answer 7

11

Dzięki. Skąd w pierwszej kolejności dowiadujesz się o tych funkcjach, jeśli chodzi o dokumentację?

geoteoria

Answer 8

68

też spróbuj

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

Miguel Rayon Gonzalez
źródło

5

Świetny! Naprawdę przydatne, gdy musimy upuszczać kolumny, kopiując i wklejając nazwy z konsoli.

Pablo Casas

Answer 9

5

Świetny! Naprawdę przydatne, gdy musimy upuszczać kolumny, kopiując i wklejając nazwy z konsoli.

Pablo Casas

Answer 10

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

Answer 11

Jest select_if(~!is.list(.))równoważne select_if(is.list(.))?

Jasha

Answer 12

3

W tym przypadku ~jest skrótem mruczenia określającym anonimową funkcję, a nie kolejnym symbolem nie. Na przykład te dwa oznaczają to samo function(x) {!is.list(x)}i ~!is.list(.). myśleć ~jako skrót dla function(.).

SlyFox

Answer 13

8

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ć.

Durand Sinclair
źródło

12

alternatywnie możesz uzyskać dostęp do funkcji bezpośrednio w przestrzeni nazw pakietu dplyr::select().

Triamus

2

Zbyt często napotykam ten problem. Teraz zwykle definiuję nową funkcję u góry mojego skryptu dselect <- dplyr::select().

filups21

Answer 14

12

alternatywnie możesz uzyskać dostęp do funkcji bezpośrednio w przestrzeni nazw pakietu dplyr::select().

Triamus

Answer 15

2

Zbyt często napotykam ten problem. Teraz zwykle definiuję nową funkcję u góry mojego skryptu dselect <- dplyr::select().

filups21

Answer 16

5

Możemy spróbować

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

akrun
źródło

Dzięki @akrun, to zadziałało idealnie. Jednakże, biorąc pod uwagę szum wokół dplyrmożliwości uczynienia podstawowych zadań analitycznych łatwymi do czytania i pisania, jestem rozczarowany, że rzeczywiste rozwiązanie wygląda jak obejście.

Navaneethan Santhanam

@NavaneethanSanthanam Właściwie to one_ofw innym rozwiązaniu jest droga do zrobienia. Zapomniałem o tym.

akrun

Answer 17

Dzięki @akrun, to zadziałało idealnie. Jednakże, biorąc pod uwagę szum wokół dplyrmożliwości uczynienia podstawowych zadań analitycznych łatwymi do czytania i pisania, jestem rozczarowany, że rzeczywiste rozwiązanie wygląda jak obejście.

Navaneethan Santhanam

Answer 18

@NavaneethanSanthanam Właściwie to one_ofw innym rozwiązaniu jest droga do zrobienia. Zapomniałem o tym.

akrun

Answer 19

3

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

Moody_Mudskipper
źródło

To również nie daje ostrzeżenia, jeśli nie ma kolumny.

skoz

Answer 20

To również nie daje ostrzeżenia, jeśli nie ma kolumny.

skoz

Answer 21

3

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)]

dineshram mattapalli
źródło

Tylko kod odpowiedzi są odradzane. Proszę podać wyjaśnienie, jak działa odpowiedź i czym różni się od odpowiedzi już obecnych.

Ralf Stubner

Dziękuję Ci!! Żadne z powyższych rozwiązań nie działało dokładnie z tego powodu.

Marty999

Answer 22

Tylko kod odpowiedzi są odradzane. Proszę podać wyjaśnienie, jak działa odpowiedź i czym różni się od odpowiedzi już obecnych.

Ralf Stubner

Answer 23

Dziękuję Ci!! Żadne z powyższych rozwiązań nie działało dokładnie z tego powodu.

Marty999

Answer 24

0

Możesz spróbować

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

Leworęczny
źródło

R dplyr: Upuść wiele kolumn

Odpowiedzi: