我正在制作一个具有连续4个子图（4列1行）的图形，这些子图形应该共享相同的y轴值和标签。我已经将绘图设置为正确的大小，然后之间没有空格，并且xlabels也显示在绘图下，正如预期的那样。但是，x轴刻度标签在每个子图的末端彼此稍微重叠，因为这些图非常靠近。我也看不到y标签。我已经尝试过大幅增加左边距（最多20个），但ylabel仍然不可见。
我将在下面提供我的代码：
par(mfrow=c(1,4))
par(mar=c(4,0,4,0), oma = c(2,5,2,2), mgp = c(3,1.5,1))
plot(NA,NA,xlim=c(0.45,0.75),ylim=c(0,1200),ylab = 'Evaporation (mm/yr)', xlab = "Relative Humidity")
p1 = lines(rh.sens,results.summary.evap.rh[4,], col = 'blue')
points(0.58,0, pch = 19)
plot(NA,NA,xlim=c(0,6),ylim=c(0,1200),ylab = '', yaxt="none",xlab = "Wind Speed (m/s)")
p2 = lines(u.sens,results.summary.evap.u[4,], col = 'blue')
points(1.9,0, pch = 19)
plot(NA,NA,xlim=c(-18,-10),ylim=c(0,1200),ylab = '',yaxt="none", xlab = expression(paste("Precipitation", delta, "18O")))
p3 = lines(oxygen.sens,results.summary.evap.oxygen[4,], col = 'blue')
points(-14.57,0, pch = 19)
plot(NA,NA,xlim=c(1.5,4),ylim=c(0,1200),ylab = '', yaxt="none", xlab = "Budyko Parameter")
p4 =lines(omega.sens,results.summary.evap.omega[4,], col = 'blue')
points(2.6,0, pch = 19)
我希望每个子图的x轴标签在到达每个子图的末端之前停止，以使轴不与后续子图轴重叠。我还需要yaxis标签显示得更靠近y轴。