计算列中每个日期的每个元素

Question

我有以下数据集

META-INF/MANIFEST.MF

当我应用此代码时：

Start_time    Distance
1/1/2016         6
1/1/2016         7

我得到以下结果

test2 <- test1 %>% group_by(Start_time = lubridate::date(Start_time)) %>% summarise(Distance = sum(Distance))

但现在这就是我正在寻找的东西，我想根据这个日期计算距离，所以希望收到以下

Start_time     Distance
1/1/2016          13

Answer 1

在summarise中，我们可以使用n()来获取每个组中的元素数量，或者如果我们想要“距离”中的唯一元素数量，则可以使用n_distinct(Distance) < / p>

library(dplyr)
test1 %>%
   group_by(Start_time = lubridate::date(Start_time)) %>%
   summarise(Distance = n())