こういう、複数のデータ系列を持つ時系列データがあるとします。で、このデータを使って積み重ねグラフを描きたいとします。 library(dplyr) library(lubridate) set.seed(1) d <- data_frame(time = seq(ymd_h(2015042400), ymd_h(2015042401), by = "min")…