Как мне увеличить поля в моем PDF в R уценке?

Question

Я вяжу файл в pdf в r уценке и у меня есть страница с 6 участками. Я настроил поля и размер с помощью функции par (), но графики на 2-й странице занимают только около половины страницы. Как мне заставить их использовать больше длины страницы?

Вот мой код:

#R program to compare the exact and asymptotic distribution
#of sample mean from i.i.d. ga(alpha,lambda) distribution


#Use ga(alpha=2,lambda=1) --> mean=2, var=2
y<-seq(from=0, to=5, by=0.01)

#Create function for the exact pdf
exact<-function(y,n,alpha,lambda){
   ((lambda^(alpha*n))/gamma(n*alpha))*(n*y)^(alpha*n-1)*exp(-lambda*n*y)*n
    }

#Different values of sample size to compare
n<-c(1,2,5,10,30,50)
par(mfrow=c(3,2))
par(cex=0.5, mai=c(0.1,0.1,0.1,0.1))

for(i in 1:length(n)){
#true distribution
    plot(y,exact(y,n=n[i],alpha=2,lambda=1),col="red",type='l',main=paste(
          "Gamma(2,1), n=",n[i]),ylab='pdf',xaxt = "n")



#approximate distribution
lines(y,dnorm(y,mean=2,sd=sqrt(2/n[i])),type='l', col="blue",xlab="")

legend(x="topright",col=c("red","blue"),legend=c("Exact Distribution",
                                                    "Approximate Distribution"),
       pch=5)
}

введите описание изображения здесь