R 对不完全观测的月度时间序列求平均值

我有以下数据集：

id observation_date Observation_value
1  2015-02-23       5
1  2015-02-24       6
1  2015-03-01       24
1  2015-07-16       2
1  2015-09-28       9
1  2015-12-05       12

---

我想创建观测值的月平均值。在某些月份没有值的情况下，我想用我有数据的月份之间的平均值来填充数据。

使用末尾注释中的数据——我们添加了第二个id——使用第1列进行拆分，第2列作为yearmon类的索引来转换为zoo。同样，在同一报表中，使用年/月平均值对动物园对象z进行汇总。然后转换为ts，它将用NA填充缺少的月份，然后转换回zoo，并使用NA.approx填充NAs（或根据需要使用NA.spline或NA.locf）。fortify.zoo（zz）和fortify.zoo（zz，melt=TRUE）可用于将zoo对象转换为数据帧

library(zoo)
z <- read.zoo(dat, FUN = as.yearmon, index = 2, split = 1, aggregate = mean)
zz <- na.approx(as.zoo(as.ts(z)))

注

---

Lines使用末尾注释中的数据——我们添加了第二个id——使用第1列拆分，第2列作为yearmon类的索引，将其转换为zoo。同样，在同一报表中，使用年/月平均值对动物园对象z进行汇总。然后转换为ts，它将用NA填充缺少的月份，然后转换回zoo，并使用NA.approx填充NAs（或根据需要使用NA.spline或NA.locf）。fortify.zoo（zz）和fortify.zoo（zz，melt=TRUE）可用于将zoo对象转换为数据帧

library(zoo)
z <- read.zoo(dat, FUN = as.yearmon, index = 2, split = 1, aggregate = mean)
zz <- na.approx(as.zoo(as.ts(z)))

注
行请显示您尝试的内容和失败的地方。请显示您尝试的内容和失败的地方。
Lines <- "id observation_date Observation_value
1  2015-02-23       5
1  2015-02-24       6
1  2015-03-01       24
1  2015-07-16       2
1  2015-09-28       9
1  2015-12-05       12
2  2015-02-23       5
2  2015-02-24       6
2  2015-03-01       24
2  2015-07-16       2
2  2015-09-28       9
2  2015-12-05       12"

dat <- read.table(text = Lines, header = TRUE)