A partir des données de la table rpls_aggrege_large (rpls_aggrege_large.RData), créer un nuage de point (un point par EPCI) entre : :

load(system.file("extdata", "rpls_aggrege_large.RData", package = "savoirfR"))

Résultat attendu :

load("extdata/rpls_aggrege_large.RData")
library(ggplot2)
library(dplyr)

ggplot(data = rpls_aggrege_large %>%
         # on filtre la table sur les données EPCI
         filter(TypeZone == "Epci")) +
  # geom_point permet la représentation sous forme de nuage de points,
  # en définissant les variables à afficher en ordonnée et en abscisse,
  # et la 3eme variable discriminante par couleur
  geom_point(aes(x = Parc_de_moins_de_5_ans_pourcent,
                 y = DPE_GES_classe_ABC_pourcent,
                 color = epci_2017_52),
             # la valeur alpha permet de paramètrer la transparence des points
             alpha = .5,
             # la valeur size permet de paramètrer la taille des points
             size = .5)


MTES-MCT/parcours_r_exercices documentation built on Dec. 3, 2024, 1:29 p.m.