某种程度的滚动平均和稀疏日常样本

Question

我查看了rollmean文档，并做了很多Google搜索。但是，对我来说仍然不清楚的是，rollmean是否可以轻松地应用于稀疏样本，即我们是否只有间歇性的日常测量值，如以下按日期排序的每日温度测量快照：

Date Temperature
2013/01/01 10
2013/01/01 20
2013/01/03 15
2013/01/04 15
2013/01/10 15
2013/01/10 15
...

我可以简单地这样做吗：

X <- Temperatures %>%
  select(Date, Temperature) %>%
  mutate(temp_ma = rollmean(Temperature, k = 12, fill = NA, align = "right"))

如here所述。

PS：

我提供了一个可重现的数据示例：

n <- 200
dates <- sample(seq(as.Date('2000/01/01'), as.Date('2000/12/31'), by="day"), n)
ys <- x <- rnorm(n, 100, 25)

df <- data.frame(dates, ys)

ggplot(df, aes(x=dates, y=ys)) +
    geom_line()

请在这种情况下如何创建30天移动平均线？