Hi, yes, here is the output of the two individual datasets:
> dput(head(steps_hour, 15))
structure(list(Id = c(1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366),
ActivityHour = c("4/12/2016 12:00:00 AM", "4/12/2016 1:00:00 AM",
"4/12/2016 2:00:00 AM", "4/12/2016 3:00:00 AM", "4/12/2016 4:00:00 AM",
"4/12/2016 5:00:00 AM", "4/12/2016 6:00:00 AM", "4/12/2016 7:00:00 AM",
"4/12/2016 8:00:00 AM", "4/12/2016 9:00:00 AM", "4/12/2016 10:00:00 AM",
"4/12/2016 11:00:00 AM", "4/12/2016 12:00:00 PM", "4/12/2016 1:00:00 PM",
"4/12/2016 2:00:00 PM"), StepTotal = c(373, 160, 151, 0,
0, 0, 0, 0, 250, 1864, 676, 360, 253, 221, 1166)), row.names = c(NA,
-15L), class = c("tbl_df", "tbl", "data.frame"))
dput(head(cals_hour, 15))
structure(list(Id = c(1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366),
ActivityHour = c("4/12/2016 12:00:00 AM", "4/12/2016 1:00:00 AM",
"4/12/2016 2:00:00 AM", "4/12/2016 3:00:00 AM", "4/12/2016 4:00:00 AM",
"4/12/2016 5:00:00 AM", "4/12/2016 6:00:00 AM", "4/12/2016 7:00:00 AM",
"4/12/2016 8:00:00 AM", "4/12/2016 9:00:00 AM", "4/12/2016 10:00:00 AM",
"4/12/2016 11:00:00 AM", "4/12/2016 12:00:00 PM", "4/12/2016 1:00:00 PM",
"4/12/2016 2:00:00 PM"), Calories = c(81, 61, 59, 47, 48,
48, 48, 47, 68, 141, 99, 76, 73, 66, 110)), row.names = c(NA,
-15L), class = c("tbl_df", "tbl", "data.frame"))
> ```