r-将数据帧转换为时间序列

Question

我有一个关于如何将df转换为时间序列的问题。我是R的新手，我正在为这次手术而挣扎。

以下是我的df的一些行，它被命名为"测试"：

> test
SM    weekY   week       art   cat   flagP Woy   year  ispromo    yval  yqta price ln_yval ln_price
<chr> <chr>   <date>     <chr> <chr> <chr> <chr> <chr> <chr>     <dbl> <dbl> <dbl>   <dbl>    <dbl>
1 11111 2016/01 2016-01-03 Z0005 C10   0     01    2016  0        59839.  4060  14.7   11.0      2.69
2 11111 2016/02 2016-01-10 Z0005 C10   0     02    2016  0        38186.  2640  14.5   10.6      2.67
3 11111 2016/03 2016-01-17 Z0005 C10   0     03    2016  0        38986.  2660  14.7   10.6      2.68

我的日期变量是"周"，它的频率不一定等于7，因为有些日期丢失了。我想把这个df转换成一个时间序列，其中"周"是要考虑的日期。我的目的是将这个df用于预测目的。特别是，我想将多元线性回归应用于时间序列

####example where XXXXXXX is the converted df to time series and I am using some variables for lin. regr.
fit_test <- tslm(ln_yval ~ SM + cat + ispromo, data=XXXXXXX)
autoplot(XXXXXXX[,'ln_yval '], series="Data") +
autolayer(fitted(fit_test), series="Fitted")

感谢您的帮助

Answer 1

在我的脑海里有xts和zoo这个怎么样？

library(xts)
library(zoo)
library(forecast)
df <- data.frame(week = c("2020-01-01", "2020-01-08", "2020-01-18"),
SM = c(1, 2, 3),
ispromo = c(0,0,0),
cat = c("Z005", "Z005","Z005"),
yval = c(1.0, 2.0, 3.0),
ln_yval = c(3.4, 4.5, 4.6))
time_series_xts <- xts(df[,-1], order.by=as.Date(df[,1]))
time_series_zoo <- zoo(df[,-1], order.by=as.Date(df[,1]))