У меня есть 4 графика с одинаковой меткой Y в столбце. Я хотел бы просто поставить одну метку оси Y в середине левой стороны, вместо того, чтобы ставить метку оси на каждом отдельном графике. Есть ли способ сделать это? Прямо сейчас я только что повторил название оси Y на каждом графике.
Мой код:
par(mfrow=c(4,1),mar=c(5,6,3,1),las=1)
plot(x1,x$surface_temp_avg,type="l",xlab=NA,ylab=expression(paste("Temperature (", degree, "C)")),cex.lab=1.8,cex.axis=1.5)
abline(v=x1[range(which(x$surface_temp_avg >= 10))], col="blue",lwd=2)
mtext("2014",side=3,cex=1.5)
plot(y$surface_temp_avg~y1,type="l",xlab=NA,ylab=expression(paste("Temperature (", degree, "C)")),cex.lab=1.8,cex.axis=1.5)
abline(v=y1[range(which(y$surface_temp_avg >= 10))], col="blue",lwd=2)
mtext("2015",side=3,cex=1.5)
plot(z$surface_temp_avg~z1,type="l",xlab=NA,ylab=expression(paste("Temperature (", degree, "C)")),cex.lab=1.8,cex.axis=1.5)
abline(v=z1[range(which(z$surface_temp_avg >= 10))], col="blue",lwd=2)
mtext("2016",side=3,cex=1.5)
plot(v$surface_temp_avg~v1,type="l",xlab="Time",ylab=expression(paste("Temperature (", degree, "C)")),cex.lab=1.8,cex.axis=1.5)
abline(v=v1[range(which(v$surface_temp_avg >= 10))], col="blue",lwd=2)
mtext("2017",side=3,cex=1.5)