如何计算8小时平均值？ （非运行平均值）

Question

我想计算8小时的平均值。

我的方法：每8小时削减一次，然后取每8小时细分的平均值。第二步是获取这8小时平均值的平均值。

我想要一些有关如何使用以下数据创建8小时切工的建议。

数据的前两行：

 PacificTime       UTC_Time         day    site_id O3_calibrated
 1:  7/5/2017 1:00  7/5/2017 8:00 7/5/2017 ACTV006  9.838518
 2:  7/5/2017 2:00  7/5/2017 9:00 7/5/2017 ACTV006  11.460619 
 3:  7/5/2017 3:00 7/5/2017 10:00 7/5/2017 ACTV006  11.888137
 4:  7/5/2017 4:00 7/5/2017 11:00 7/5/2017 ACTV006  10.371818
 5:  7/5/2017 5:00 7/5/2017 12:00 7/5/2017 ACTV006  6.759685 

数据格式：

Classes ‘data.table’ and 'data.frame':  124304 obs. of  11 variables:
 $ PacificTime   : chr  "7/5/2017 1:00" "7/5/2017 2:00" "7/5/2017 3:00" 
 "7/5/2017 4:00" ...
 $ site_id       : chr  "ACTV006" "ACTV006" "ACTV006" "ACTV006" ...
 $ O3_calibrated : num  9.84 11.46 11.89 10.37 6.76 ...

我要使用的代码是先创建8小时平均值，然后取这8小时平均值的平均值。

actapdata %>% mutate (o8 = cut(PacificTime, breaks = 8 )) %>%
  group_by (o8, site_id) %>%
   summarise(o8_avg = mean(O3_calibrated))

  o3_avg <- actapdata %>% 
     group_by(site_id) %>% 
     summarise(o3 =  mean(o8_avg, na.rm=T) )