3차전처리_연도별Code.R
1.83 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
src_dir<-c("2010104050_박재호_졸업논문/데이터/대기오염데이터/2차전처리(지역별분할 및 곽측소 시별 통합 및 연도통합)/2016/")
src_file<-list.files(src_dir)
src_file_cnt<-length(src_file)
#src_file_cnt
temp <- read.csv(paste(src_dir, src_file[j], sep=""), stringsAsFactors = F)
for(i in 1:3){ # 연도별 데이터 처리시 src_dir 과 substr 범위 수정
for(j in 1:src_file_cnt){
temp <- read.csv(paste(src_dir, src_file[j], sep=""), stringsAsFactors = F)
if(i==2){
temp$측정일시<-substr(temp$측정일시,1,10) # Day
}
if(i==3){
temp$측정일시<-substr(temp$측정일시,1,7) # month
}
if(j==1){
refactoring_Data<-temp
}else{
refactoring_Data<-rbind(refactoring_Data, temp)
refactoring_Data<-data.frame(
aggregate(SO2 ~ 측정일시,refactoring_Data,mean),
aggregate(CO ~ 측정일시,refactoring_Data,mean),
aggregate(O3 ~ 측정일시,refactoring_Data,mean),
aggregate(NO2 ~ 측정일시,refactoring_Data,mean),
aggregate(PM10 ~ 측정일시,refactoring_Data,mean)
)
refactoring_Data<-refactoring_Data[-c(3,5,7,9)]
}
}
if(i==1){
write.csv(refactoring_Data, "2010104050_박재호_졸업논문/데이터/대기오염데이터/3차전처리(경기도 전체)/2016/경기도2016_Hour.csv")
}
if(i==2){
write.csv(refactoring_Data, "2010104050_박재호_졸업논문/데이터/대기오염데이터/3차전처리(경기도 전체)/2016/경기도2016_Day.csv")
}
if(i==3){
write.csv(refactoring_Data, "2010104050_박재호_졸업논문/데이터/대기오염데이터/3차전처리(경기도 전체)/2016/경기도2016_month.csv")
}
}