R中的时间序列(Ts)函数计数不正确

发布于03月18日

在R中使用ts函数创建每个月的时间序列时，每个时间单位的总计似乎不正确.例如，2014年1月的值应该远远大于ts，但输出显示为3(见下文).有人知道我的代码出了什么问题吗？

使用代码:

set.seed(1)
df <- data.frame(date_rec = seq(as.Date("2014-01-01"),as.Date("2015-12-31"), by=1),
                 number = sample(c(1:10),size = 730, replace=TRUE))

df_ts <-  ts(df$number, frequency=12, start=c(2014,1), end=c(2015,12))
df_ts

pdf_ts的结果

    Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
2014   3   4   6  10   3   9  10   7   7   1   3   2
2015   7   4   8   5   8  10   4   8  10   3   7   2

推荐答案

另一种 Select 是在ts之前使用aggregate:

library(tidyverse)
# Group by month and aggregate the numbers
monthly_data <- aggregate(number ~ year(date_rec) + month(date_rec), data = df, FUN = sum)

# Create a time series object
ts(monthly_data$number, frequency = 12, start = c(2014, 1))

   year(date_rec) month(date_rec) number
1            2014               1    188
2            2015               1    143
3            2014               2    159
4            2015               2    148
5            2014               3    189
6            2015               3    198
7            2014               4    157
8            2015               4    158
9            2014               5    169
10           2015               5    195
11           2014               6    171
12           2015               6    176
13           2014               7    195
14           2015               7    172
15           2014               8    181
16           2015               8    175
17           2014               9    187
18           2015               9    196
19           2014              10    167
20           2015              10    187
21           2014              11    162
22           2015              11    204
23           2014              12    189
24           2015              12    165