Visualisation des données

Cette section présente quelques visualisations des données à partir des groupes de pays comparables établis.

Les pays répartis en 4 groupes

À l’aide de l’analyse par grappe, nous avons été en mesure de définir quatre groupes de pays comparable en fonction de leur profil de vaccination, de leur population, de leur PIB, de leur PIB par habitant et de leur espérance de vie.

Moyenne des variables d’intérêt, selon le groupe de comparable

Show code

statistique %>%
  kbl() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"), full_width = F)

Groupe	Personnes pleinement vaccinées par 100 hab.	Population	PIB réel estimé (G$)	PIB réel estimé par habitant	Espérance de vie
1	73.4	31997437	1653.4	51217.9	81.9
2	36.0	14942857	147.1	11787.5	74.0
3	63.0	79469286	980.6	20803.9	77.3
4	8.4	30002127	111.4	3679.5	65.1

Voici un premier graphique qui présente la distribution des quatre groupes selon le profil de vaccination et l’espérance de vie.

Show code

library(plotly)

p <- df_cluster %>%
  ggplot(aes(people_fully_vaccinated_per_hundred, life_expectancy, color = .cluster, name = name)) +
  geom_point() +
  ggtitle("Relation entre les personnes pleinement vaccinées \npar 100 habitants et l'espérance de vie, quatre grappes")

ggplotly(p, height = 500)

Quant est-il si l’espérance de vie est remplacée par le PIB par habitant ?

Show code

p2 <- df_cluster %>%
  ggplot(aes(people_fully_vaccinated_per_hundred, income_per_person, color = .cluster, name = name)) +
  geom_point() +
  ggtitle("Relation entre les personnes pleinement vaccinées par \n100 habitants et le PIB réel par habitant, quatre grappes")

ggplotly(p2, height = 500)

Analyse d’une grappe

Show code

group3 <- filter(df_cluster, df_cluster$.cluster == 3)

Voyons maintenant si nous pouvons voir comment les pays sont distribués à l’intérieur d’une grappe. Plus précisément est la répartition des continents à l’intérieur d’une grappe. Prenons par exemple le groupe 3 qui contient 35 pays.

Show code

p <- group3 %>%
  ggplot(aes(people_fully_vaccinated_per_hundred, life_expectancy, color = continent, name = name)) +
  geom_point() +
  ggtitle("Relation entre les personnes pleinement vaccinées \npar 100 habitants et l'espérance de vie")

ggplotly(p, height = 500)

Données

Les données utilisées pour les analyses sont disponibles pour le téléchargement sur la page Données pour téléchargement.