Я делаю фигуру с 4 подзаговорами в строке (4 столбца, 1 ряд), которые должны иметь одинаковые значения оси y и метку.Я получил графики нужного размера без промежутков между ними, и xlabels также отображаются под графиками, как и ожидалось.Тем не менее, метки на оси x слегка перекрывают друг друга на концах каждого вспомогательного графика, потому что графики расположены так близко друг к другу.Я также не вижу ярлык у вообще.Я попытался значительно увеличить левое поле (до 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.