如何计算R中不同位置的每日最大值？

因此，目前我可以使用以下代码计算一个站点的每日最大值：

library('dplyr')
library('data.table')
library('tidyverse')
library('tidyr')
library('lubridate')

funcVolume <- function(max_data$enter_yard, max_data$exit_yard)

{
vecOnes <- array(1,c(length(max_data$enter_yard),1))
vecTime <- c(max_data$enter_yard,max_data$exit_yard)
vecCount <- c(vecOnes,-vecOnes)
df_test <- data.frame(T = vecTime, Count = vecCount)
df_test <-  df_test %>%
arrange(T) %>%
mutate(Volume = cumsum(Count))
df_test
}

df_test2 <- df_test

df_test2$date <- as.Date(format(df_test$T, "%Y-%m-%d"))

df_test3 <- df_test2

df_test3 <- tibble(x = df_test2$Volume, y = df_test2$date) %>%
  arrange(y)

dataset <- df_test3 %>%
  group_by(y) %>%
  dplyr::filter(x == max(x)) %>%
  distinct(x,.keep_all = T) %>%
  ungroup()

我还有几百万行数据，所以我需要一些可以在合理时间范围内运行的数据。

请设置一个数据库，以便我们可以运行您的代码。funcVolume在哪里调用过？

Date | Max Count | Site
 x        y         z
 x        a         b