dplyr 연습

> mpg %>%
+   filter(class == "compact") %>%  # compact 추출
+   group_by(manufacturer) %>%      # manufacturer별 분리
+   summarise(count = n()) %>%      # 빈도 구하기
+   arrange(desc(count))            # 내림차순 정렬
# A tibble: 5 × 2
  manufacturer count
  <chr>        <int>
1 audi            15
2 volkswagen      14
3 toyota          12
4 subaru           4
5 nissan           2

Q1. 어떤 회사에서 "compact"(경차) 차종을 가장 많이 생산하는지 알아보려고 합니다. 각 회사별 "compact" 차종 수를 내림차순으로 정렬해 출력하세요.

> mpg %>%
+   group_by(manufacturer) %>%           # 회사별로 분리
+   filter(class == "suv") %>%           # suv 추출
+   mutate(tot = (cty+hwy)/2) %>%        # 통합 연비 변수 생성
+   summarise(mean_tot = mean(tot)) %>%  # 통합 연비 평균 산출
+   arrange(desc(mean_tot)) %>%          # 내림차순 정렬
+   head(5)                              # 1~5위까지 출력
# A tibble: 5 × 2
  manufacturer mean_tot
  <chr>           <dbl>
1 subaru           21.9
2 toyota           16.3
3 nissan           15.9
4 mercury          15.6
5 jeep             15.6