‘Treemap’ ou dessiner une carte proportionnelle…

Cette semaine, le #Tidytuesday nous fait découvrir les votes pour le choix de l’oiseau de l’année de la Nouvelle-Zélande. Pour visualiser les résultats des votes, j’ai choisi de faire une carte porportionnelle et de m’amuser un peu avec les couleurs.



CONTEXTE

Les données de cette semaine proviennent de Dragonfly Data Science et nous ont été partagées par Nathan Moore.



OBJECTIFS

  1. Visualiser les résultats du sondage avec une carte porportionnelle.
  2. Utiliser les couleurs et le titre pour créer un message.



IMPORTER

nz_bird <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-11-19/nz_bird.csv")
FALSE Parsed with column specification:  
FALSE cols(  FALSE   date = col_date(format = ""),  
FALSE   hour = col_double(),  
FALSE   vote_rank = col_character(),  
FALSE   bird_breed = col_character()  
FALSE 
)



EXPLORER

summary(nz_bird)
##       date                 hour        vote_rank          
##  Min.   :2019-10-28   Min.   : 0.00   Length:217300       
##  1st Qu.:2019-10-30   1st Qu.:10.00   Class :character    
##  Median :2019-11-04   Median :13.00   Mode  :character    
##  Mean   :2019-11-03   Mean   :13.66                       
##  3rd Qu.:2019-11-07   3rd Qu.:18.00                       
##  Max.   :2019-11-10   Max.   :23.00                       
##   bird_breed         
##  Length:217300       
##  Class :character    
##  Mode  :character    
##                      
##                      
## 



PRÉPARER

vote <- nz_bird %>%
    filter(!is.na(bird_breed))%>%
     group_by(bird_breed) %>%
     summarise(somme=n(), pourcentage=(somme/sum(somme)*100)) %>%
     ungroup() %>%
     arrange(desc(pourcentage))      

#hist(vote$pourcentage, breaks=10)



VISUALISER

#Graphique  
gg<-ggplot(vote, aes(area = pourcentage, fill = bird_breed))   
gg<-gg+ geom_treemap(color="white")  
gg<-gg+ theme(legend.position="none")  
gg <- gg + scale_fill_manual(values=c("#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#BCBCBC","#3658D0", "#BCBCBC", "#BCBCBC"))  
#modifier le thème  
gg <- gg +  theme(panel.border = element_blank(),
                      panel.background = element_blank(),
                      plot.background = element_blank(),
                      panel.grid.major.x= element_blank(),
                      panel.grid.major.y= element_blank(),
                      panel.grid.minor = element_blank(),
                      axis.line.x = element_blank(),
                      axis.line.y =element_blank(),
                      axis.ticks.x = element_blank(),
                       axis.ticks.y = element_blank())  
#ajouter les titres  
gg<-gg + labs(title="Quel est l'oiseau favori?",
              subtitle = "<br>La Nouvelle-Zélande a voté et, parmis les 85 espèces d'oiseaux présentés, c'est le<br><span style='color:#3658D0'>**manchot antipode**</span> qui remporte le titre de l'oiseau de l'année pour 2019!<br>",
              x=" ",
              y=" ",
              caption="\nSOURCE: Dragonfly Data Science   |  DESIGN: Johanie Fournier, agr.")  
gg<-gg + theme(plot.title    =  element_text(size=40, hjust=0,vjust=0.5, family="Tw Cen MT", color="#373737"),
               plot.subtitle = element_markdown(lineheight = 1.1,size=16, hjust=0,vjust=0.5, face="bold", color="#898989"),
               plot.caption  = element_text(size=10, hjust=1,vjust=0.5, family="Tw Cen MT", color="#898989"),
               axis.title.y  = element_blank(),
               axis.title.x  = element_blank(),
               axis.text.y   = element_blank(),
               axis.text.x   = element_blank())

Voici ce que ça donne:





CONCLUSION

Finalement, c’est le manchot antipode qui est le favori de la Nouvelle-Zélande pour 2019. 

Alors, tu veux en savoir plus sur ma démarche? Un épisode de podcast sera bientôt disponible dans lequel je t’explique toute la réflexion et les concepts de data visualisation qui ont menés à la création de cette viz.

Publicités

Laisser un commentaire

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.