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

Question

我对 R 很陌生，我正在尝试在我的时间序列图上做一些 ARIMA 预测，但是我的 AFC 图看起来不正确..这可能是我绘制 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 图..

任何帮助将非常感激！