用R中的ggplot绘制rollapply

Question

我需要帮助。我想绘制一个条形图，其中包含代表rollapply的包ggplot（vector，2，FUN =“mean”）。我希望情节看起来像这样：

但是酒吧必须代表“rollmeans”。我用来做这个图的代码是：

    ggplot(bp12.0.5op, 
       aes(fecha,part.0.5))+
  geom_point(na.rm=TRUE, color="firebrick")+
  geom_line(color="firebrick", size=1)+
  stat_summary_bin(fun.y="mean", geom="bar")+
  geom_smooth(method = "loess", se = FALSE, linetype = 1, color = "black", size = 1 )+  
  geom_hline(yintercept = 15000000)+
  annotate("text", min(bp12.0.5op$fecha), 15500000, label = "Límite")+
  ggtitle("PARTÍCULAS DE 0,5micras EN SALA LLENADO BP12 OPERATIONAL")
  geom_line(rollapply(bp12.0.5op, width = 10, FUN = mean), col = 'red')

谢谢！