데이터1 ) ID와 데이터가 있는 data.CSV데이터2 ) ID와 NAME이 있는 model.CSV
1. 파일 읽어들이기
###### 첫 번째 파일 읽기 ######
setwd("C:/Users/USER/Desktop")
tsv <-fread("data.csv")
###### 두 번째 파일 읽기 ######
setwd("C:/Users/USER/Desktop")
NAME <-fread("model.csv")
2. 두 데이터 합치기 merge
MergeTsv <- merge(tsv,NAME,by="ID",all=FALSE)
all 옵션 :
all=TRUE 일때는 합집합(좌)
all=FALSE 일때는 교집합(우)
3. 데이터 타입 변환
MergeTsv$DATA <- as.numeric(MergeTsv$DATA)
############### POSIX 타입으로 변환하는 경우####################
MergeTsv$REG_DATE <- as.POSIXct(MergeTsv$REG_DATE,format="%H:%M:%S")
############### %H:%M 처럼 변환 형태를 지정하는 경우 format 이용####################
############### format을 이용하면 CHAR 타입으로 변환이 된다....####################
MergeTsv$REG_DATE<-format(as.POSIXct(MergeTsv$REG_DATE,format = "%H:%M:%S"),"%H:%M")
4. ggplot 이용하여 꺾은선 그래프 그리기
//x=축 데이터, y=y축 데이터, colour, group = 구분 기준
ggplot(MergeTsv,aes(x=REG_DATE,y=DATA, colour=DAY,group=DAY))+
//facet_wrap=plot이 만들어지는 단위 기준
geom_line()+facet_wrap(~NAME,ncol = 1, scales="free")+
coord_cartesian(ylim=c(1,150))+
scale_x_discrete(breaks= c("03:00","06:00","09:00","12:00","15:00","18:00","21:00"))
- group : 한 장비의 yesterday, today 별로 그래프를 그리고 싶어서 group을 주었음
- facet_wrap : 장비 NAME 별로 그래프를 따로 그리기 위해 facet_wrap 사용