在for循环中，如何更改R中的acf和pacf图的标题和大小

我试图用下面的代码绘制r中数据帧的列向量的10个acf和pacf数据

for (i in 1:10)
{
  acf(data1[,i], 108, xlim=c(4,97), ylim=c(-.4,1), main=("The Country is", i))
  pacf(data1[,i],108, xlim=c(4,97), ylim=c(-.4,1))
}

然而，这是不工作的，我得到了

Error in parse(text = x, srcfile = src): <text>:5:74: unexpected ','
4: {
5:   acf(data1[,i], 108, xlim=c(4,97), ylim=c(-.4,1), main=("The Country is",
                                                                            ^
Traceback:

分析时出错（text=x，srcfile=src）：：5:74:意外'，' 4: { 5:acf（数据1[，i]，108，xlim=c（4,97），ylim=c（-.4,1），main=（“国家是”， ^ 回溯： 此外，如果我改变了尺寸，我基本上可以工作，但我不喜欢尺寸。我也可以改变它吗

---

谢谢你

谢谢你，李哲远你帮了我很多我只是做了一些小的调整

for (i in 1:10)
{
    par(mfrow = c(1, 2))
    #acf(data1[,i], ylim=c(-0.2, 1), main = paste("The Country is", r[i+1]))
    acf(data1[,i], ylim=c(-0.2, 1),main =NA)
    pacf(data1[,i], ylim=c(-0.2, 1),main =NA)
    par(mfrow = c(1, 1))
    title(r[i+1], outer=TRUE)
}

这就行了