同学，要是方便的最好还是把你的代码发出来，还有数据文件，不然这样根本无法判断……

#转换为时间序列格式，绘制时序图
hx=ts(hx)
plot(hx,col=4,lwd=2,pch=8,type="o")

#ADF检验和白噪声LB检验【在这一步时出现问题】
adf.test(hx)
for(i in 1:4) print(Box.test(hx,type="Ljung-Box",lag=3*i))

#绘制自相关和偏自相关图
opar<-par(mfrow=c(2,1))
acf(hx,col=4,lwd=2)
pacf(hx,col=4,lwd=2)
par(opar)

#转换为时间序列格式，绘制时序图
hx=ts(hx)
plot(hx,col=4,lwd=2,pch=8,type="o")

#ADF检验和白噪声LB检验【在这一步报错】
adf.test(hx)
for(i in 1:4) print(Box.test(hx,type="Ljung-Box",lag=3*i))

#绘制自相关和偏自相关图
opar<-par(mfrow=c(2,1))
acf(hx,col=4,lwd=2)
pacf(hx,col=4,lwd=2)
par(opar)

日期        词频
8.1        7
8.2        2
8.3        22
8.4        24
8.5        23
8.6        20
8.7        23
8.8        2
8.9        2
8.1        21
8.11        19
8.12        21
8.13        22
8.14        30
8.15        3
8.16        3
8.17        24
8.18        23
8.19        24
8.2        16
8.21        26
8.22        4
8.23        2
8.24        25
部分数据