I am dealing with time series analysis, I want to check residual autocorrelation, but before that I would like to draw time series lag plots and I am struggling with problem like that

lagged residuals seem to be the same as residuals:

here is the code:

ehata=ts(DATA1$residuals, start=c(1960), end=c(2015),freq=1)
plot(ehata,xlab="",lwd=2,col="red")
abline(h=0) 
plot(lag(ehata,-1),ehata,ylab="residuals",xlab="lag",lwd=2,col="green")

btw residuals time plot works

ehata=ts(DATA1$residuals, start=c(1960), end=c(2015),freq=frequency(DATA1))
plot(ehat,xlab="",lwd=2,col="red")
abline(h=0)