R/2016year.R

In qkdrk777777/Q4:

library(rJava)
library(openxlsx)
library(DUcj)
library(plyr)
setwd('C:\\Users\\qkdrk\\Documents\\카카오톡 받은 파일')
(list<-list.files(pattern=').xlsx'))
data<-read.xlsx(list[1],sheet=2)
newdata<-data
newdata[apply(newdata[,6:14]==0,1,mean)==1,6:ncol(data)]<-NA
for(i in 1:5)  assign(paste0('data',i),data[data[,1]==i, ])
for(i in 1:5)  assign(paste0('newdata',i),data[data[,1]==i, ])
colnames(data)
#i는 지점 j는 변수위치 k는 날짜


del2<-NULL
for(j in c(6:14,16:17)){
  tt=0;del=NULL;dd=NULL;d=NULL
    for( k in c('2016.07.21','2016.07.28','2016.08.04','2016.08.11','2016.08.18','2016.08.25','2016.09.01','2016.09.08')){
    if(k%in%c('2016.08.18','2016.08.25'))t=c(1,3,4,5) else if(k%in%c('2016.09.01','2016.09.08'))t=c(1,3,4) else t=1:5
  for(i in t){
    d<-c(d,k)
    dd<-c(dd,i)
    tt<-tt+1
del[tt]<-print( mean(get(paste0('newdata',i))[grep(k,get(paste0('newdata',i))$날짜),j]))
  }
}
  del2<-cbind(del2,del)
}
del2<-data.frame(d,dd,del2,stringsAsFactors = F)
colnames(del2)<-c('date','지점',colnames(data)[c(6:14,16:17)])

#del2<-NULL
setwd('C:/Users/qkdrk/Desktop')
write.csv(del2,'크래이2016_NA.csv')