r - 用 R 中的 ggplot 按周绘图

Question

我有以下数据:

set.seed(123)
timeseq <- as.Date(Sys.time() + cumsum(runif(1000)*86400))
data <- rnorm(1000)
df <- data.frame(timeseq,data)

我想知道是否有人有任何关于如何聚合的方法 data按周。我试图做的是绘制一个时间序列 ggplot，所以如果我可以跳过这一步并让 ggplot 处理它，那就更好了。一整天都被困在这个问题上。

Answer 1

另一种使用 dplyr 按周手动聚合的方法。

library(dplyr)
df$weeks <- cut(df[,"timeseq"], breaks="week")
agg <- df %>% group_by(weeks) %>% summarise(agg=sum(data))
ggplot(agg, aes(as.Date(weeks), agg)) + geom_point() + scale_x_date() +
    ylab("Aggregated by Week") + xlab("Week") + geom_line()