每周数据的 R 时间序列绘图

Question

我有从 2015 年第 2 周到 2016 年第 9 周的每周数据，在拟合并绘制我的预测后，x 轴没有意义。我如何以月/周的形式分享 x 轴值#。谢谢

TS1<-ts(DUMMYDATA,frequency =52,start = c(2015,02),end = c(2016,09))

我尝试创建自己的 x 轴，但无法在时间分量方面正确反射(reflect)它

Answer 1

首先我生成了一些随机的可重现数据。您可以使用 as.Date 直接在 ts 中生成日期。之后，您需要将时间序列转换为日期格式。要显示带有月/周日期的轴，您可以将 scale_x_date 与 date_labels 一起使用，形成周和月。这是一个可重现的示例:

library(ggplot2)
# Generate random reproducible data
set.seed(1)
DUMMYDATA <- cumsum(rnorm(10000))
TS1<-ts(DUMMYDATA, frequency = 52, start = as.Date('2015-02-01'), end = as.Date('2016-09-01'))

# Convert to dataframe
data = data.frame(y=as.matrix(TS1), date=time(TS1))

# convert date to date format
data$date <- as.Date(as.numeric(time(data$date)), origin = "1970-01-01")

ggplot(data, aes(x = date, y = y)) +
  geom_line() +
  scale_x_date(date_labels = "%b-%W", 
               date_breaks = '1 week') +
  guides(x = guide_axis(angle = 90)) +
  theme_bw()

^{创建于 2022 年 11 月 27 日 reprex v2.0.2}

如果您不想每周显示，可以将 date_breaks 更改为如下所示的月份:

library(ggplot2)
ggplot(data, aes(x = date, y = y)) +
  geom_line() +
  scale_x_date(date_labels = "%b-%W", 
               date_breaks = '1 month') +
  guides(x = guide_axis(angle = 90)) +
  theme_bw()

^{创建于 2022 年 11 月 27 日 reprex v2.0.2}