我希望y轴的刻度为-1,0,1,但从第三幅图开始刻度并没有按我希望的显示,求怎么办?下面的我的代码.
n=14
t <- 1:14
a <- c(0,-1,2,-2,0,-1,0,1,-1,2,0,-2,1,1)
G <- 0.5^t
par(mfrow=c(8, 1))
par(mar=c(0,4,1,1))
plot(a,type='h',xaxt='n',axes=F,ylab=NA)
points(a,type='p',col='red')
axis(1,at=0:14,las=0,pos=0,tck=0)
axis(2,las=2,pos=0.5)
for(i in 1:6)
{
        Ga <- c(rep(NA,i),G[1:(n-i)]*a[i])
        plot(Ga,type='h',xaxt='n',axes=F,ylab=NA)
        points(Ga,type='p',col='red')
        axis(1,at=0:14,pos=0,tck=0) #las=0
        axis(2,at=-1:1,labels=-1:1,pos=0.5)
}