按天汇总天气数据（来自R的包装nycflights13）

Question

我想按天总结每小时的天气数据（每天得到总降水量和最大风速）。在网络上找到了一个代码段，但它只导致两个变量的观察，而不是每日观察。

如何更改此特定代码？还有什么其他方法可以执行此任务？

谢谢！

library(nycflights13)
library(dplyr)

precip <- weather %>%
  group_by(month, day) %>%
  filter(month < 13) %>%
 summarise(totprecip = sum(precip), maxwind = max(wind_speed))