更改R中的频率时间序列

Question

作为输入，我在每天的时间点都有一个已知的时间序列。 我们可以将此时间序列称为_x_ 。 对象_x_是一个时间序列，即由日期和测量值组成。

我想研究使每个月的时间序列保持不变的效果。 换句话说，我想有一个新的时间序列_y_ ，它仍然具有每日的频率，但是月份中的观测值保持恒定，等于月份中的第一个值。

我对此进行了研究，并尝试使用'tempdisagg'包，特别是'td'功能。 但是，这对我而言似乎太复杂了，需要输入公式。 此外，假设每个月有30天，则会在_x_和_y_之间产生差异，这是不希望的，因为时间序列的长度是几年。

有解决方案来实现这一点吗？

Answer 1

x的创建（时间序列）

x <- ts(seq(1:62),  frequency = 365, start = c(2017, as.numeric(format(as.Date("2017-12-01"), "%j"))) )

创建具有时间序列，每日和每月数据的数据框（db）

library(lubridate)
tms <- date_decimal(as.numeric(time(x)))
y_m<-as.character(substr(as.character(tms),1,7))
db<-as.data.frame(cbind(as.numeric(x),as.character(tms),y_m))
colnames(db)<-c("time_series","y_m_d","y_m")

提取每个月的第一个值

db_first<-db[!duplicated(db$y_m),]

创建最终输出

db_merge<-as.data.frame(merge(x=db,y=db_first,by="y_m",all=T))
db_final<-as.data.frame(cbind(as.character(db_merge$y_m),as.numeric(as.character(db_merge$time_series.y))))
colnames(db_final)<-c("y_m","time_series")
       y_m time_series
1  2017-12           1
2  2017-12           1
3  2017-12           1
4  2017-12           1
5  2017-12           1
6  2017-12           1
7  2017-12           1
8  2017-12           1
9  2017-12           1
10 2017-12           1
11 2017-12           1
12 2017-12           1
13 2017-12           1
14 2017-12           1
15 2017-12           1
16 2017-12           1
17 2017-12           1
18 2017-12           1
19 2017-12           1
20 2017-12           1
21 2017-12           1
22 2017-12           1
23 2017-12           1
24 2017-12           1
25 2017-12           1
26 2017-12           1
27 2017-12           1
28 2017-12           1
29 2017-12           1
30 2017-12           1
31 2017-12           1
32 2018-01          32
33 2018-01          32
34 2018-01          32
35 2018-01          32
36 2018-01          32
37 2018-01          32
38 2018-01          32
39 2018-01          32
40 2018-01          32
41 2018-01          32
42 2018-01          32
43 2018-01          32
44 2018-01          32
45 2018-01          32
46 2018-01          32
47 2018-01          32
48 2018-01          32
49 2018-01          32
50 2018-01          32
51 2018-01          32
52 2018-01          32
53 2018-01          32
54 2018-01          32
55 2018-01          32
56 2018-01          32
57 2018-01          32
58 2018-01          32
59 2018-01          32
60 2018-01          32
61 2018-01          32
62 2018-01          32