Upload new file

+
+src_dir<-c("2010104050_박재호_졸업논문/데이터/원자료/대기오염데이터/")
+
+src_file<-list.files(src_dir)
+src_file
+src_file_cnt<-length(src_file)
+
+set_src_dir<-c("2010104050_박재호_졸업논문/데이터/대기오염데이터/1차전처리(결측치제거 및 시간변수 통일)/")
+
+#for(i in 1:src_file_cnt){
+  
+#  rawdata_Set <- read.csv(
+#    paste(src_dir,"/",src_file[i],sep=""),sep = ",",header = F,stringsAsFactors = F)
+  
+#  write.csv(rawdata_Set,
+#            paste(src_dir,"/","2014~2017.csv",sep = ""),
+#            sep = ",",
+#            row.names = FALSE,
+#            col.names = FALSE,
+#            quote = FALSE,
+#            append = TRUE) #append-> stacking임
+  
+#  rm(rawdata_Set)
+  
+#}
+# 파일 용량이 커서 실패, R의 한계
+
+for(i in 1:src_file_cnt){
+
+  refactoring_Data<- read.csv(paste(src_dir, src_file[i], sep=""), header = F, stringsAsFactors = F)
+  
+  colnames(refactoring_Data)<-c("지역","측정소코드","측정소명","측정일시","SO2","CO","O3","NO2","PM10","PM25","주소")
+  
+  refactoring_Data[is.na(refactoring_Data)]<-0 #결측치 제거
+  
+  refactoring_Data<- refactoring_Data[-1,-c(2,10,11)] #1행 제거, 3열 제거(측정소코드, PM25, 주소)
+  
+  ## Start of 시간변수 분해 결합#####
+  
+  refactoring_Date<- refactoring_Data$측정일시
+  
+  year<-substr(refactoring_Date,1,4)
+  month<-substr(refactoring_Date,5,6)
+  day<-substr(refactoring_Date,7,8)
+  hour<-substr(refactoring_Date,9,10)
+  
+  hour<-sub(pattern = "24",replacement = "00",x = hour)
+  hour<-paste0(hour,sep=":00")
+  
+  refactoring_Date<-paste(year,month,sep="-")
+  refactoring_Date<-paste(refactoring_Date,day,sep="-")
+  refactoring_Date<-paste(refactoring_Date,hour,sep=" ")
+  
+  refactoring_Data$측정일시<-refactoring_Date
+  
+  ## End of 시간변수 분해 #####
+  
+  write.csv(refactoring_Data,
+                        paste(set_src_dir,"set_", src_file[i],sep = ""),
+                        sep = ",",
+                        row.names = FALSE,
+                        col.names = FALSE,
+                        quote = FALSE,
+                        append = FALSE)
+} 
+
+rm(i,src_dir,src_file,src_file_cnt,year,month,day,hour,refactoring_Date,refactoring_Data, set_src_dir)
\ No newline at end of file