서울특별시 대기분석

<데이터 정보>

https://cleanair.seoul.go.kr/statistics/monthAverage

서울특별시 대기환경정보 - 기간별 통계(월별 평균)

 

1. 가설 설정 

$$ H_{0} : 강서구 미세먼지 와 강동구 미세먼지 평균이 같다 $$

$$ H_{1} : 강서구 미세먼지 와 강동구 미세먼지 평균이 같지 않다 $$

 

2. 데이터 전처리

dust <- read_excel("C:/Temp1/month.xlsx")
View(dust)
str(dust)

dust_area <- dust %>% filter(구분 %in% c('강서구','강동구')) 
View(dust_area)
str(dust_area)

gange <- c(46,46,45,44,33,37,21,24,20,36,46,45)
gangw <- c(53,46,49,45,36,36,21,23,19,36,50,45)

boxplot(gange,gangw)
t.test(gange, gangw)

3. 데이터 시각화

1. 강동구 , 2. 강서구

Welch Two Sample t-test

data:  gange and gangw
t = -0.2954, df = 21.553, p-value = 0.7705
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -10.705214   8.038547
sample estimates:
mean of x mean of y 
 36.91667  38.25000 

4. 결론

강서구, 강동구의 미세먼지 평균은 다르다고 할 수 있다. 강서구 평균 : 38.25, 강동구 평균 : 36.91667 중국에 더 가깝기 때문에 이러한 영향이 있다고 판단이 된다.