将多个位置的每小时数据转换为每日数据

Question

我正在将多个位置的每小时数据转换为每日数据。我正在使用这段代码，但它结合了每日规模的所有数据值。请帮助我改进此代码，为每个位置提供每日数据。

library(tidyverse)
library(lubridate)

StartDateTime <- dmy_hm("01-01-1981 00:00")
EndDateTime <- dmy_hm("31-01-1981 23:00")

date_hour_seq <- seq.POSIXt(StartDateTime, EndDateTime, by = "hour")

DF2 <- data.frame(df, DateTime = date_hour_seq,
Mintemp = rnorm(length(date_hour_seq), 300),
Maxtemp = rnorm(length(date_hour_seq), 300),
Temp = rnorm(length(date_hour_seq), 300),
SoilType = rnorm(length(date_hour_seq), 6),
SoilVol_1 = rnorm(length(date_hour_seq), 10),
Wind = rnorm(length(date_hour_seq), 10),
Evap = rnorm(length(date_hour_seq), 10),
Runoff = rnorm(length(date_hour_seq), 50),
Prec = rnorm(length(date_hour_seq), 100),
LAI_H = rnorm(length(date_hour_seq), 10),
LAI_L = rnorm(length(date_hour_seq), 10))

DF3 <- DF2 %\>% group_by(date = date(time)) %\>%
summarise(Mintemp = mean(Mintemp),
Maxtemp = mean(Maxtemp),
Temp = mean(Temp),
SoilType = mean(SoilType),
SoilVol_1 = mean(SoilVol_1),
Wind = mean(Wind),
Evap = mean(Evap),
Runoff = mean(Runoff),
Prec = mean(Prec),
LAI_H = mean(LAI_H),
LAI_L = mean(LAI_L))

我无法理解如何根据位置对数据进行分组。