R过滤器和数据帧子集

请就以下几点给我一些建议

有一个包含三列的数据框，第一列是datetime（精确到秒），第二列是人名，第三列是消息

我想检索以下信息并绘制它们

在某一分钟内每人发送的消息

某个人在某一分钟内的信息

---

提前感谢。

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")

table(subset(dfr, time > start_time & time <= end_time, person))
subset(dfr, person == "Richie" & time > start_time & time <= end_time)