R에서 행을 필터링하는 방법
종종 R의 특정 조건을 기반으로 하는 데이터 프레임의 하위 집합에 관심이 있을 수 있습니다. 다행히 dplyr 패키지의 filter() 함수를 사용하면 이 작업을 쉽게 수행할 수 있습니다.
library(dplyr)
이 튜토리얼에서는 starwars 라는 내장 dplyr 데이터세트를 사용하여 이 기능을 실제로 사용하는 방법에 대한 몇 가지 예를 설명합니다.
#view first six rows of starwars dataset
head(starwars)
# A tibble: 6 x 13
name height mass hair_color skin_color eye_color birth_year gender homeworld
1 Luke~ 172 77 blond fair blue 19 male Tatooine
2 C-3PO 167 75 <NA> gold yellow 112 <NA> Tatooine
3 R2-D2 96 32 <NA> white, bl~ red 33 <NA> Naboo
4 Dart~ 202 136 none white yellow 41.9 male Tatooine
5 Leia~ 150 49 brown light brown 19 female Alderaan
6 Owen~ 178 120 brown, gr~ light blue 52 male Tatooine
# ... with 4 more variables: species , films , vehicles ,
# starships
예 1: 특정 값과 동일한 행 필터링
다음 코드는 변수 “species”가 Droid와 동일한 행에 대해 데이터 세트를 필터링하는 방법을 보여줍니다.
starwars %>% filter(species == ' Droid ')
# A tibble: 5 x 13
name height mass hair_color skin_color eye_color birth_year gender homeworld
1 C-3PO 167 75 gold yellow 112 Tatooine
2 R2-D2 96 32 white, bl~ red 33 Naboo
3 R5-D4 97 32 white, red red NA Tatooine
4 IG-88 200 140 none metal red 15 none
5 BB8 NA NA none none black NA none
# ... with 4 more variables: species , films , vehicles ,
# starships
#A tibble: 5 x 13 에 표시된 대로 데이터세트의 5개 행이 이 조건을 충족하는 것을 볼 수 있습니다.
예 2: “And”를 사용하여 행 필터링
종이 Droid 이고 눈 색깔이 빨간색인 행을 필터링할 수도 있습니다.
starwars %>% filter(species == ' Droid ' & eye_color == ' red ') # A tibble: 3 x 13 name height mass hair_color skin_color eye_color birth_year gender homeworld 1 R2-D2 96 32 <NA> white, bl~ red 33 <NA> Naboo 2 R5-D4 97 32 <NA> white, red red NA <NA> Tatooine 3 IG-88 200 140 none metal red 15 none <NA> # ... with 4 more variables: species , films , vehicles , # starships
데이터 세트의 3개 행이 이 조건을 충족하는 것을 볼 수 있습니다.
예 3: “Or”를 사용하여 행 필터링
종이 Droid 이거나 눈 색깔이 빨간색인 행을 필터링할 수도 있습니다.
starwars %>% filter(species == ' Droid ' | eye_color == ' red ') # A tibble: 7 x 13 name height mass hair_color skin_color eye_color birth_year gender homeworld 1 C-3PO 167 75 <NA> gold yellow 112 <NA> Tatooine 2 R2-D2 96 32 <NA> white, bl~ red 33 <NA> Naboo 3 R5-D4 97 32 <NA> white, red red NA <NA> Tatooine 4 IG-88 200 140 none metal red 15 none <NA> 5 Bossk 190 113 none green red 53 male Trandosha 6 Nute~ 191 90 none mottled g~ red NA male Cato Nei~ 7 BB8 NA NA none none black NA none <NA> # ... with 4 more variables: species , films , vehicles , # starships
데이터세트의 7개 행이 이 조건을 충족하는 것을 볼 수 있습니다.
예시 4: 목록의 값으로 행 필터링
색상 목록에 눈 색깔이 나타나는 행을 필터링할 수도 있습니다.
starwars %>% filter(eye_color %in% c(' blue ', ' yellow ', ' red ')) # A tibble: 35 x 13 name height mass hair_color skin_color eye_color birth_year gender 1 Luke~ 172 77 blond fair blue 19 male 2 C-3PO 167 75 <NA> gold yellow 112 <NA> 3 R2-D2 96 32 <NA> white, bl~ red 33 <NA> 4 Dart~ 202 136 none white yellow 41.9 male 5 Owen~ 178 120 brown, gr~ light blue 52 male 6 Beru~ 165 75 brown light blue 47 female 7 R5-D4 97 32 <NA> white, red red NA <NA> 8 Anak~ 188 84 blond fair blue 41.9 male 9 Wilh~ 180 NA auburn, g~ fair blue 64 male 10 Chew~ 228 112 brown unknown blue 200 male # ... with 25 more rows, and 5 more variables: homeworld, species, # films, vehicles, starships
데이터 세트의 35개 행에 파란색, 노란색 또는 빨간색 눈 색깔이 있음을 알 수 있습니다.
관련 항목: R에서 %in% 연산자를 사용하는 방법(예제 포함)
예 5: 보다 작거나 큼을 사용하여 행 필터링
숫자 변수에 대한 보다 작거나 보다 큰 연산을 사용하여 행을 필터링할 수도 있습니다.
#find rows where height is greater than 250 starwars %>% filter(height > 250) # A tibble: 1 x 13 name height mass hair_color skin_color eye_color birth_year gender homeworld 1 Yara~ 264 NA none white yellow NA male Quermia # ... with 4 more variables: species , films , vehicles , # starships #find rows where height is between 200 and 220 starwars %>% filter(height > 200 & height < 220) # A tibble: 5 x 13 name height mass hair_color skin_color eye_color birth_year gender homeworld 1 Dart~ 202 136 none white yellow 41.9 male Tatooine 2 Rugo~ 206 NA none green orange NA male Naboo 3 Taun~ 213 NA none gray black NA female Kamino 4 Grie~ 216 159 none brown, wh~ green, y~ NA male Kalee 5 Tion~ 206 80 none gray black NA male Utapau # ... with 4 more variables: species , films , vehicles , # starships #find rows where height is above the average height starwars %>% filter(height > mean (height, na.rm = TRUE )) # A tibble: 51 x 13 name height mass hair_color skin_color eye_color birth_year gender 1 Dart~ 202 136 none white yellow 41.9 male 2 Owen~ 178 120 brown, gr~ light blue 52 male 3 Bigg~ 183 84 black light brown 24 male 4 Obi-~ 182 77 auburn, w~ fair blue-gray 57 male 5 Anak~ 188 84 blond fair blue 41.9 male 6 Wilh~ 180 NA auburn, g~ fair blue 64 male 7 Chew~ 228 112 brown unknown blue 200 male 8 Han ~ 180 80 brown fair brown 29 male 9 Jabb~ 175 1358 <NA> green-tan~ orange 600 herma~ 10 Jek ~ 180 110 brown fair blue NA male # ... with 41 more rows, and 5 more variables: homeworld, species, # films, vehicles, starships
여기에서 filter() 함수에 대한 전체 문서를 찾을 수 있습니다.