为什么当我颠倒数据顺序时,R seasonal 包中的 seas() 函数返回错误?

Why does my seas() function from the R seasonal package return an error when I reverse the order of my data?

提问人:Damien Bau 提问时间:11/16/2023 最后编辑:PhilDamien Bau 更新时间:11/16/2023 访问量:9

问:

我正在尝试从 R 上的季节性包运行季节性调整函数 seas()。我的代码如下:

#import and load required packages
#install.packages("seasonal")
#install.packages("tidyverse")
#install.packages("parsedate")
library(seasonal)
library(tidyverse)
library(parsedate)


# import datarange from excel
#data <- AirPassengers #temp
data <- read.csv('C:/Users/user/Desktop/x13arima/temp.csv')

# clean imported data and standardise date format
data[[1]] <- parse_date(data[[1]])
data[[1]] <- format(data[[1]],"%Y-%m")

# reverse order of data to descending
data <- map_df(data,rev)
data <- data.frame(data)
data[,2] <- as.numeric(data[,2])


#specify the start date of time series
start_date = str_split_1(data[1,1],"-")

#convert data to time series
series <- ts(data[[2]],frequency = 12, start = start_date)



# perform seasonality adjustment on cleaned data
adjusted = seas(series)


# select subset to export from analysed data
export = adjusted[["data"]]
#export = subset(export,select = c("final","seasonal"))

# export dataframe
write.csv(export,file="C:/Users/user/Desktop/x13arima/adjusted_data.csv", row.names=FALSE)

当我在没有行的情况下运行脚本时,这没有问题

# reverse order of data to descending
data <- map_df(data,rev)
data <- data.frame(data)
data[,2] <- as.numeric(data[,2])

我颠倒了数据框的顺序,并确保新数据框的格式与以前相同。当我使用此代码块运行脚本时,出现错误:

Error in file(con, "r") : cannot open the connection
In addition: Warning message:
In file(con, "r") :
  cannot open file 'C:\Users\user\AppData\Local\Temp\RtmpcVfiCB\x1375d824d446cd/iofile.est': No such file or directory

我的数据采用以下格式:

enter image description here

从 2018 年 11 月 30 日到 2023 年 10 月 31 日不等。

我在网上找不到任何与此相关的内容,也不确定如何解决这个问题。以前有人遇到过类似的问题吗?

我尝试了几种反转数据框中行的方法,并且还确保新数据框的格式与旧数据框完全相同。时间序列“series”的格式也与以前相同,绘制此格式可得出预期的结果。

r 反向 季节性调整

评论


答: 暂无答案