Существует множество различных форматов даты в R. Если у вас нет предпочтений для одного из них, используйте пакет lubridate
.
library(lubridate)
Некоторые примеры данных:
the_present <- now()
dfr <- data.frame(
person = rep(c("Richie", "user900168"), each = 3),
time = seq(the_present, by = "-1 min", length.out = 6),
message = letters[1:6]
)
Выберите интересную минуту:
start_time <- floor_date(the_present, unit = "min")
end_time <- ceiling_date(the_present, unit = "min")
Используйте subset
и table
для решения ваших проблем.
table(subset(dfr, time > start_time & time <= end_time, person))
subset(dfr, person == "Richie" & time > start_time & time <= end_time)