R中几个自相关函数的图

Question

一个例子是：

生成两个样本：

a<-rnorm(100,0,1)
b<-rnorm(100,0,1)

现在我们获得了acf的展位样本

a1<-acf(a)$acf
b1<-acf(b)$acf

将两个数组转换为数字向量

a1<-as.numeric(a1)
b1<-as.numeric(b1)

我的目标是在一个情节中绘制两个acf

plot(a1,type="h")
lines(b1,type="h",col="red")

正如我们所看到的，它有效，但特别是当绘制了超过2个acf时，它会让人感到困惑。我现在的问题是：是否有办法（没有包装）将红色acf稍微向左或向右移动以使情节更清晰？