たまに次のような時系列を意図したデータに出くわす時がある。 # サンプルデータを作る set.seed(5) d <- data.table::data.table(ID = letters[1:5], "BMI(0)" = rnorm(5, 25), "BMI(6)" = rnorm(5, 25), "BMI(12)" = rnorm(5, 25), "Steps(0)" = rnorm(5, …