如何計算每週每小時平均值

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))