dput(head(daily_calories,100))
structure(list(Id = c(1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1503960366, 1503960366, 1503960366,
1503960366, 1503960366, 1503960366, 1624580081, 1624580081, 1624580081,
1624580081, 1624580081, 1624580081, 1624580081, 1624580081, 1624580081,
1624580081, 1624580081, 1624580081, 1624580081, 1624580081, 1624580081,
1624580081, 1624580081, 1624580081, 1624580081, 1624580081, 1624580081,
1624580081, 1624580081, 1624580081, 1624580081, 1624580081, 1624580081,
1624580081, 1624580081, 1624580081, 1624580081, 1644430081, 1644430081,
1644430081, 1644430081, 1644430081, 1644430081, 1644430081, 1644430081,
1644430081, 1644430081, 1644430081, 1644430081, 1644430081, 1644430081,
1644430081, 1644430081, 1644430081, 1644430081, 1644430081, 1644430081,
1644430081, 1644430081, 1644430081, 1644430081, 1644430081, 1644430081,
1644430081, 1644430081, 1644430081, 1644430081, 1844505072, 1844505072,
1844505072, 1844505072, 1844505072, 1844505072, 1844505072, 1844505072
), ActivityDay = c("4/12/2016", "4/13/2016", "4/14/2016", "4/15/2016",
"4/16/2016", "4/17/2016", "4/18/2016", "4/19/2016", "4/20/2016",
"4/21/2016", "4/22/2016", "4/23/2016", "4/24/2016", "4/25/2016",
"4/26/2016", "4/27/2016", "4/28/2016", "4/29/2016", "4/30/2016",
"5/1/2016", "5/2/2016", "5/3/2016", "5/4/2016", "5/5/2016", "5/6/2016",
"5/7/2016", "5/8/2016", "5/9/2016", "5/10/2016", "5/11/2016",
"5/12/2016", "4/12/2016", "4/13/2016", "4/14/2016", "4/15/2016",
"4/16/2016", "4/17/2016", "4/18/2016", "4/19/2016", "4/20/2016",
"4/21/2016", "4/22/2016", "4/23/2016", "4/24/2016", "4/25/2016",
"4/26/2016", "4/27/2016", "4/28/2016", "4/29/2016", "4/30/2016",
"5/1/2016", "5/2/2016", "5/3/2016", "5/4/2016", "5/5/2016", "5/6/2016",
"5/7/2016", "5/8/2016", "5/9/2016", "5/10/2016", "5/11/2016",
"5/12/2016", "4/12/2016", "4/13/2016", "4/14/2016", "4/15/2016",
"4/16/2016", "4/17/2016", "4/18/2016", "4/19/2016", "4/20/2016",
"4/21/2016", "4/22/2016", "4/23/2016", "4/24/2016", "4/25/2016",
"4/26/2016", "4/27/2016", "4/28/2016", "4/29/2016", "4/30/2016",
"5/1/2016", "5/2/2016", "5/3/2016", "5/4/2016", "5/5/2016", "5/6/2016",
"5/7/2016", "5/8/2016", "5/9/2016", "5/10/2016", "5/11/2016",
"4/12/2016", "4/13/2016", "4/14/2016", "4/15/2016", "4/16/2016",
"4/17/2016", "4/18/2016", "4/19/2016"), Calories = c(1985, 1797,
1776, 1745, 1863, 1728, 1921, 2035, 1786, 1775, 1827, 1949, 1788,
2013, 1970, 2159, 1898, 1837, 1947, 1820, 2004, 1990, 1819, 1959,
1896, 1821, 1740, 1819, 1859, 1783, 0, 1432, 1411, 1572, 1344,
1463, 1554, 1604, 1435, 1446, 1467, 1470, 1562, 1617, 1492, 1402,
1670, 1401, 1404, 1655, 2690, 1497, 1334, 1368, 1370, 1341, 1474,
1427, 1328, 1393, 1359, 1002, 3199, 2902, 3226, 2750, 3493, 3011,
2806, 3300, 2430, 2140, 2344, 2677, 2413, 2497, 3123, 2489, 3108,
2498, 3846, 2696, 2580, 3324, 2222, 2463, 3328, 3404, 2987, 3008,
2799, 1276, 2030, 1860, 2130, 1725, 1657, 1793, 1814, 1366)), row.names = c(NA,
-100L), class = c("tbl_df", "tbl", "data.frame"))
This is the output