Вы можете сделать это в R с dplyr
и magrittr
пакетами
library(dplyr)
library(magrittr)
x <- data.frame(ID = c("A","A","A","B","B","C"),
DateTime = c("12/13/2019 6:35:48PM", "12/13/2019 6:35:49PM",
"12/13/2019 6:35:50PM","12/13/2019 7:00:00PM",
"12/13/2019 7:00:05PM","12/13/2019 8:00:05PM"))
x$DateTime <- as.POSIXct(x$DateTime, format = c("%m/%d/%Y %H:%M:%S"))
x %>%
group_by(ID) %>%
mutate(dif = max(DateTime)- min(DateTime)) %>%
select(ID, dif) %>% distinct()
# A tibble: 3 x 2
# Groups: ID [3]
ID dif
<fct> <drtn>
1 A 2 secs
2 B 5 secs
3 C 0 secs