我通过看R语言实战学的时间序列，就找了数据作了一番，但是结果始终不理想，请求大神帮忙看一看 下面是我的程序
library(xlsx)
library(forecast)
workbook <- "e:/RStudio/ts/passengerflow.xlsx"
mydataframe <- read.xlsx(workbook, sheetName = "Sheet1" , encoding = "UTF-8")
t<-ts(mydataframe, frequency =365, start =c("2017-10-01"))
fit <- auto.arima(t,trace = TRUE)
forecast(fit, 31)
plot(forecast(fit, 31), xlab="Year", ylab="Annual Flow")