如何计算每周每小时平均值

Question

DateTime totalgen 

我有一个大约200k行的数据框，显示访问者数字在几个月的时间段内。我想每个季节绘制一张图表（共4个地块），显示一周内每15分钟的平均访问人数。每情节，

• x轴=时间序列从周一00:00:00至周日23:45，
• y轴=对于给定的时间戳

head(dataset, 9) 

      <DateTime> <visitors> 
1 2014-12-01 00:00:00  12 
2 2014-12-01 00:15:00  2335 
3 2014-12-01 00:30:00  2366 
4 2014-12-01 00:45:00  12254 
5 2014-12-01 01:00:00  45 
6 2014-12-01 01:15:00  0 
7 2014-12-01 01:30:00  0 
8 2014-12-01 01:45:00  12 
9 2014-12-01 02:00:00  122 

游客的平均数量

如何计算15分钟时间戳的平均访问人数？

Answer 1

使用lubridate

library(lubridate) 
ds <- dataset %>% 
     rowwise() %>% 
     mutate(dummy = paste0(week(ymd_hms(DateTime)), hour(ymd_hms(DateTime)), minute(ymd_dms(DateTime)))) %>% 
     ungroup() %>% 
     group_by(dummy) %>% 
     summarise(visitors=mean(visitors))