Как использовать макет для организации сложных сюжетов на одной странице в

Question

Я пытаюсь использовать layout() для создания PDF с четырьмя графиками на одной странице. Я создал матрицу и задаю порядок графиков с этой строкой

layout(mat=matrix(c(1,2,3,4), nrow = 4, ncol = 1))

. После этого я пытаюсь загрузить один из сохраненных графиков в макете, но, похоже, это не работает. Он просто загружает сюжет сам.

Поэтому я попытался скопировать код графика после макета, но получаю несколько ошибок, начиная с поля Ошибка.

    par(mar=c(4, 6, 4, 6) + 0.1,cex.axis=0.8)#START A NEW PLOT FRAME

plot(acms_day$end,acms_day$Org,pty='s',xaxt='n',#CALL THE DESIRED VARIABLES
     type = 'b',lty=2,lwd=0.01,
     xlim=period,ylim=c(0,max(acms_day$Org,na.rm = T)),#SET LIMITS OF X AND Y AXIS
     xlab='', ylab='',
     bg=color_pal[14],
     col=color_pal[14],
     axes=F, main='',
     cex=0.5,las=1,pch=21)
axis(2, ylim=c(0,max(acms_day$Org,na.rm = T)),
     col='black',lwd=0.2,cex = 0.8,las=1)
mtext(2,text='Org (ug/m3)',line=2.2,
      col=color_pal[14],cex = 0.8,las=0) 
par(new=T) #START A NEW PLOT OVER THE DAME FRAME
plot(maap_day$date,maap_day$bc,pty='s',xaxt='n',#CALL THE DESIRED VARIABLES
     type = 'p',#lty=2,lwd=0.01,
     xlim=period,ylim=c(0,max(maap_day$bc,na.rm = T)),#SET LIMITS OF X AND Y AXIS
     xlab='', ylab='',
     col=color_pal[3], pch=21,
     bg=color_pal[3], 
     main='',cex=0.5,yaxt='n',ann = FALSE,xaxt='n')
axis(4, ylim=c(0,max(maap_day$bc,na.rm = T)),
     col='black',lwd=0.2,cex = 0.8,las=1)
mtext(4,text='BC (ug/m3)',line=2.2,
      col=color_pal[3],cex = 0.8,las=0)

axis.POSIXct(1,acsm_long$end,at = hours,format = '%H:%M')
rug(hours, ticksize = -0.01, side = 1)#create minor breaks
rug(days,ticksize = -0.02,side=1) #create day breaks

Как только запускается первая строка, появляется эта ошибка Ошибка в plot.new (): слишком большие поля рисунка.

Что я делаю не так?