library(tidyverse) library(lubridate) library(gplots) library(RColorBrewer) # 데이터 가정 data.frame(tt='2010-01-01 00:00:00', power.consumption=99) %>% rbind(data.frame(tt='2010-01-01 00:15:00', power.consumption=100)) %>% rbind(data.frame(tt='2010-01-01 00:30:00', power.consumption=130)) %>% rbind(data.frame(tt='2010-01-02 00:00:00', power.consumption=100)) %>% rbind(data.frame(tt='2010-01-02 00:15..
