1 2 3 4 5 6 7 8 9 10
| if (export==1) pdf(file = Gfile)
par(mfrow=c(1,2))
boxplot (dataset$col~plotdata$v,ylab = "y" , col=plotdata$point, xlab = "x")
legend(x=0, y=1950, "Santé économique moyenne ou mauvaise", col=2, pch=15, inset = 0, cex=0.5)
legend(x=0, y=1880, "Bonne santé économique", col=4, pch=15, inset = 0, cex=0.5)
plot(dataset$dataset.GDP~dataset$dataset, col=plotdata$point, pch=20, abline(lm(dataset$dataset.GDP~plotdata$rich),col=4), xlab="nb", ylab="Produit intérieur brut par habitant par an.")
legend(x=0, y=39500, "Santé économique moyenne ou mauvaise", col=2, pch=15, inset =0, cex=0.5)
legend(x=0, y=38800, "Bonne santé économique", col=4, pch=15, inset = 0, cex=0.5)
mtext("titre principal", side = 5, outer = T, cex = 1.5, adj=-0.05, padj=1.2)
if (export==1) dev.off() |
Partager