서울시 미세먼지 비교

(연습) 2020년 1월의 서울시의 미세먼지 수치는 다음과 같습니다. There were finedust data in Seoul provance. we can see below data table.

dustData_Test <- read_excel("C:/Users/ajoumc/Desktop/HG_Rstudy/dustdata_jiae.xlsx")
View(dustData_Test)

서울시의 마포구와 송파구 미세먼지 수치 비교

(연습) 서울시의 마포구와 송파구의 미세먼지 비교 수치는 다음과 같습니다. Below table is the fine dust data set between MapoGu and SongpaGu.

dustData_min <- dustData_Test[, c("날짜", "마포구", "송파구")]
View(dustData_min)

마포구와 송파구의 미세먼지 수치 평균 비교

(연습) 그래프는 다음과 같습니다. There is a boxplot graph of the mean data between MapoGu and SongpaGu

boxplot(dustData_min$마포구, dustData_min$송파구,main = "finedust_compare",
        xlab ="AREA", names = c("마포구", "송파구"),
        ylab = "FINEDUST_PM", col = c("blue", "green"))

마포구와 송파구의 미세먼지 수치의 통계분석

(연습) 마포구와 송파구의 미세먼지 수치의 통계분석은 다음과 같습니다. 미세먼지 수치는 ‘집단간의 분산이 동일한’ 등분산(P value = 0.5702)이며, 두지역간의 미세먼지 수치는 통계적으로 유의하지 않음(p-value =0.9936)을 확인하였습니다. (통계적으로 평균의 차이가 없음을 확인하였습니다.)

var.test(dustData_min$마포구, dustData_min$송파구)
## 
##  F test to compare two variances
## 
## data:  dustData_min$마포구 and dustData_min$송파구
## F = 0.80825, num df = 29, denom df = 29, p-value = 0.5702
## alternative hypothesis: true ratio of variances is not equal to 1
## 95 percent confidence interval:
##  0.3846984 1.6981293
## sample estimates:
## ratio of variances 
##          0.8082497
t.test(dustData_min$마포구, dustData_min$송파구, var.equal = T)
## 
##  Two Sample t-test
## 
## data:  dustData_min$마포구 and dustData_min$송파구
## t = 0.0080106, df = 58, p-value = 0.9936
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -8.296105  8.362772
## sample estimates:
## mean of x mean of y 
##  33.23333  33.20000

끝(The End)