보고사항 1. 연비 분포 파악하기

# 데이터 처리
mpg$drv <- as.factor(mpg$drv)

# 히스토그램 생성
ggplot(mpg) +
  geom_histogram(aes(x = cty, fill = drv), 
                 position = "identity",
                 binwidth = 2, alpha = 0.5)

  1. 도시 연비는 15~20 사이에 집중되어 있으며

  2. 전륜구동(f) 차량이 높은 연비를 보입니다

보고사항 2. 자동차 등급(class)별 배기량 비교

ggplot(mpg) +
  geom_boxplot(aes(x = class, y = displ))

1. Subcompact, compact 차량은 배기량이 작고,

2 .SUV, pickup은 배기량이 큽니다.

3 .일부 등급에 이상치가 관측됩니다.

3. 고속도로 연비: 구동방식과 변속기 영향

mpg$trans <- as.factor(mpg$trans)

ggplot(mpg) +
  geom_histogram(aes(x = hwy, fill = drv),
                 binwidth = 2, alpha = 0.5,
                 position = "identity") +
  facet_grid(drv ~ trans)

1. 전륜구동+자동변속기가 가장 연비가 우수함

2 .후륜/4륜 구동은 연비가 낮게 분포함