베스트 셀러라 봤음. 청소년문학에 어울리는 이야기이다. 국가에 의해 관리되는 아이들을 키우는 센터. 그 센터에서 자라는 아이들은 부모가 되기 위해 찾아오는 사람들의 면접을 실행함 parent+interview= paint 부모가 된다는 것, 가족으로 산다는 건 어떤건지 되돌아본다. 심신이 지칠 때 가볍게 읽을만한 책.
"아이는 부모의 필요에 의해 태어난 존재들 같아요"
"대부분 예행연습없이 부모가 되잖아요"
모든 어른의 가슴속에는 자라지 못한 아이가 살고 있다고 했다. 여자의 가슴속에 발레를 끔직하게 싫어하는 열 살 아이가 살고 있는 것처럼.
어쩌면 지금도 많은 아이들이, 자신의 꿈이 아닌 부모 꿈의 대리인으로 살아가는지도 몰랐다. 아니, 자신이 대리인이라는 것조차 모르고 있을 수도...
"내가 엄마에게서 정신적으로나 경제적으로 독립이 필요했듯이 엄마 역시 나로부터 독립이 필요했다는 걸 말이야"
데이터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 사용
