tiff(filename = "Myplot.tiff",width = 130, height = 50, units = "mm", res=300)
par(mfrow=c(1,3))
par(oma=c(3,0,0,0))
par(mar=c(3,2,2,0))
boxplot(PVFD1 ~ Model*GW1, data = Carabooda5, main ="Carabooda", xlab ="GW allocation (ML)",
ylab="Environmental damage cost($million)", col=c("grey41", "grey77"),
cex.lab=0.5, cex.sub=0.8, cex.main=1, ylim=c(0,70), cex.axis = 0.5)
legend("topleft", legend=c("No internalization", "Internalization"),
col=c("grey41", "grey77"), pch = 15, bty = "n", pt.cex = 0.8, cex = 0.5, horiz = F)
boxplot(PVFD1 ~ Model*GW1, data = Neerabup5, main ="Neerabup", xlab="GW allocation (ML)",
ylab="Environmental damage cost($million)", col=c("grey41", "grey77"), cex.lab=0.8, cex.sub=0.8, cex.main=1, cex.axis=0.5,
ylim=c(0,70))
legend("topleft", legend=c("No internalization", "Internalization"),
col=c("grey41", "grey77"), pch = 15, bty = "n", pt.cex = 0.8, cex = 0.5, horiz = F)
boxplot(PVFD1 ~ Model*GW1, data = Neerabup5, main ="Nowergup", xlab="GW allocation (ML)",
ylab="Environmental damage cost($million)", col=c("grey41", "grey77"), cex.lab=0.8, cex.sub=0.8, cex.main=1, cex.axis=0.5,
ylim=c(0,70))
legend("topleft", legend=c("No internalization", "Internalization"),
col=c("grey41", "grey77"), pch = 15, bty = "n", pt.cex = 0.8, cex = 0.5, horiz = F)
mtext("Myplot", outer = TRUE, cex = 0.5, font=4 )
dev.off()
Я не знаю, почему внешний «Myplot» не отображается внизу рисунка?И у оси Y нет заголовка, хотя я поставил код с заголовком.
На самом деле мне нужны только название оси Y и галочка в Carabooda.Два других графика могут быть склеены друг с другом так, чтобы отображались только один общий заголовок и галочка по осям Y и один заголовок по осям X для всех трех.
Также, если кто-нибудь знает, как сделать график более понятным?Я могу использовать только серый цвет, а размер определяется по журналу (130 x 50)
