SWDChallenge|M8: Visualisation sur mobile

Le #SWDChallenge de ce mois-ci consiste à sélectionner un graphique ou un tableau de bord qu’on a déjà créé pour qu’il soit visualisé sur un ordinateur, puis le modifier pour qu’il soit optimisé pour être consulté sur un mobile. L’adaptation peut prendre plusieurs formes: une longue image qui sera consultée par défilement, plusieurs images qui seront consultées les unes après les autres à la manière d’Instagram, ou une image simple qui se consulte directement à l’écran  et dont la taille doit être adaptée.

J’ai choisi de reprendre le tableau de bord que j’avais créé pour montrer l’évolution de la croissance des porcs. Voici le graphique original: 



J’ai créé cette viz au début de l’année 2019 et quand je la regarde aujourd’hui, il y a plusieurs choses que j’aimerais améliorer. Ce défi est donc une excellente occasion d’améliorer le tout. Premièrement, je trouve que l’information est redondante. En janvier, j’ai voulu montrer l’évolution des 3 paramètres de croissance les plus important, mais je crois que tout mettre ces informations dans une même visualisation à eu un effet de dilution. Donc, pour refaire cette viz, je veux me concentrer seulement sur le paramètre le plus important, soit la conversion alimentaire, et ajouter des annotations pour venir appuyer les données avec l’évolution du GMQ et du poids.



OBJECTIFS

  1. Améliorer ma viz sur les performances des porcs
  2. Respecter les exigences pour qu’elle soit adaptée à la lecture sur mobile en réalisant une image simple de dimension adéquate.



IMPORTER

CA<- read_excel("~/Documents/ENTREPRISE/Projets R/Porc/Évolution CA porc/évolution de la conversion alimentaire des porcs en engraissement.xlsx", sheet="data", col_names = TRUE, col_types = NULL, skip=0) %>%
filter(type=="Conversion alimentaire")



VISUALISER

#Graphique  
gg<- ggplot(CA, aes(x=valeur,y=annee,group=annee, colour=facteur))
gg<- gg + geom_line(size=2, color="#8597A0")
gg<- gg + geom_point(size=5)
#Retirer la légende
gg<- gg + theme(legend.position="none")
#ajuster les axes
gg<- gg + xlim(2.4, 2.9)
gg<- gg + scale_y_continuous(breaks=seq(2000,2016,16), expand=c(0.15,0.15))
#Changer manuellement les couleurs
gg<- gg + scale_colour_manual(values=c('#FC814A','#2E6171'))
#Ajouter les étiquettes de données
gg<-gg + geom_text(data=CA, aes(x=valeur, y=annee, label=round(valeur,2)), size=4, vjust=2, family="Calibri", fontface="bold")
gg<-gg +annotate(geom="text", x=2.44, y=2018, label="ajustée\n(25-10 kg)", color="#FC814A", size=4, hjust=0.5, fontface="bold")
gg<-gg +annotate(geom="text", x=2.7, y=2018, label="moyenne", color="#2E6171", size=4, hjust=0.5, fontface="bold")
#adapter le thème du graphique selon les besions:
gg<- gg + theme(panel.border = element_blank(),
panel.background = element_blank(),
panel.grid.major.y =element_line(size=0.7, linetype="solid", color="#8597A0"),
panel.grid.major.x =element_blank(),
panel.grid.minor = element_blank(),
axis.line.x = element_blank(),
axis.line.y = element_blank(),
axis.ticks = element_blank())
#créer et placer les étiquettes des axes et titres, sous-titres et notes:
gg<- gg + labs(y = NULL,
x = 'Conversion alimentaire')
gg<- gg + theme(plot.title = element_blank(),
plot.caption = element_blank(),
axis.title.y = element_blank(),
axis.text.y = element_text(hjust =0.5,size= 12, colour = "#8597A0"),
axis.title.x = element_text(hjust =0,size= 12, colour = "#8597A0"),
axis.text.x = element_blank())

Voici ce que ça donne: 

Publicités

Une réflexion sur “SWDChallenge|M8: Visualisation sur mobile

  1. Pingback: you can take it with you - Beyond Group

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.