如何计算 R 中多个日期范围之间不同列和行的平均值？

Question

这是我第一次在这里提出问题，对于未能在问题中放入干净的数据集，我深表歉意。 我正在研究不同个体的激素水平。 我正在尝试查看给定日期范围内所有样本的平均值。 假设2019-09-04是事件发生的日期，我希望查看样本的平均值：

1. 30 天前。
2. 60 天前。
3. 30 天后。
4. 在此日期之后的 60 天。

我需要创建数据集、计算日期范围并为所有个人计算这四个范围的平均值的代码。 这是我的数据集目前的样子：

我目前拥有的代码如下：

loghormonesOTS <- loghormones %>%
filter(Date >= as.Date("2014-10-18")-30 & Date <= as.Date("2014-10-18"))
loghormonesOTS

group_by(loghormonesOTS, MaleID, Group) %>% summarize(GC = mean(GC), AR = mean(AR))

目前的方式是：我必须这样做 4 次（对于每个日期范围）将数据收集到 excel 文件中，然后对我拥有的所有“事件”再执行 30 次。 有没有办法创建这样一个dataset ，但有 4 个日期范围，每个日期范围各自为GC和AR计算平均值？ 换句话说，我需要GC和AR的 4 组列，它们彼此独立，每个人都有自己的平均值。

谢谢，

西蒙