Question

我在过去80天内每分钟收集一次数据，相当于大约116,000条记录：

...
"30694","2015-09-06 18:09:11","119"
"30695","2015-09-06 18:10:09","693"
"30696","2015-09-06 18:11:10","155"
...

我希望能够绘制这一数据的整周平均值。我应该怎么做R？我想把数据分成每一天（[星期日，星期一，......，星期六]），然后取每一分钟的平均值（所以只是忽略秒数），相当于60 * 24 * 7 = 10,080总平均值这一周，每个平均值在某一分钟（即18:11）由80天的数据计算。有没有更容易/更好的方法来做到这一点？也可以使用其他数据分析包。

Answer 1

您可以使用lubridate轻松完成此操作。

library(dplyr)
library(lubridate)

data %>%
  setNames(c("ID", "time", "measurement") ) %>%
  mutate(time = time %>% ymd_hms,
         week = time %>% round_date("week") ) %>%
  group_by(week) %>%
  summarize(measurement = mean(measurement))

计算R中每分钟的平均星期几

1 个答案: