# 1. Configuration de paramètres graphiques
par.default <- par(bty = 'n')
# 2. Initialisation d'un graphique (contenant ici des boxplots)
plot(stations ~ magFactor, data = quakes, lwd = 1.5,
main = "Nombres de stations ayant rapporté les séismes
selon leurs classes de magnitude",
xlab = "classe de magnitude", ylab = "nombre de stations")
# 3. Ajout séquentiel d'éléments au graphique
# Ajout de diagrammes de dispersion 1D par région
stripchart(stations ~ magFactor, data = quakes, subset = region == "Est",
method = "jitter", jitter = 0.3, pch = 20,
col = rgb(0,0,1,0.2), add = TRUE, vertical = TRUE)
stripchart(stations ~ magFactor, data = quakes, subset = region == "Ouest",
method = "jitter", jitter = 0.3, pch = 20,
col = rgb(1,0,0,0.2), add = TRUE, vertical = TRUE)
# Ajout d'une légende
legend(x = "bottomright", pch = 20, bty = "n",
col = c(rgb(0,0,1,0.5), rgb(1,0,0,0.5)),
legend = c("Est", "Ouest"), title = "région")
# Réattribution des valeurs par défaut aux paramètres graphiques modifiés
par(par.default)