R - 时间序列图和ACF的问题

Question

我对R很陌生，我试图在我的时间序列图上做一些ARIMA预测，但是我的AFC情节看起来并不正确..这可能就像我＆＃ 39;我画了我的ts

这是我的TS代码：

library(tseries)
library(xts)

data1<-read.csv("~/Desktop/SQN_Yr.csv",sep=",", header=TRUE,na.strings="..")
data1[,1] <- as.Date(data1[,1]) 
class(data1$Monthly) #validating data.type
data1$Number<-ts(data1$Number, start=c(2005,1), frequency = 12)
plot(data1$Number)
acf(data1$Number, lag.max=NULL)

这是我的TS图

这是我的ACF情节..

非常感谢任何帮助！