Aujourd’hui on reprend les données du chômage récupérées hier sur le site de l’Insee. On va transformer le graphe qu’on a créé avec ggplot2 pour le faire ressembler aux graphes de l’excellent comic xkcd. On va utiliser pour cela le package R xkcd :
install.packages("xkcd", dependencies = T)
Il faut ensuite installer la police “xkcd”. Le script suivant fait l’affaire :
library(extrafont)
download.file("http://simonsoftware.se/other/xkcd.ttf",
dest="xkcd.ttf", mode="wb")
system("mkdir ~/.fonts")
system("cp xkcd.ttf ~/.fonts")
font_import(pattern = "[X/x]kcd", prompt=FALSE)
fonts()
fonttable()
if(.Platform$OS.type != "unix") {
## Register fonts for Windows bitmap output
loadfonts(device="win")
} else {
loadfonts()
}
Il ne reste plus qu’à modifier un peu notre graphe original et utiliser le thème theme_xkcd() dans ggplot2. Notez l’utilisation de geom_smooth à la place de geom_line afin de lisser la courbe pour renforcer l’aspect bande dessinée.
library(xkcd)
library(ggplot2)
plot_chomage <- ggplot(donnees_chomage, aes(x=TIME_PERIOD, y=OBS_VALUE)) +
geom_smooth(colour="red", size=2, level=0, formula = y ~ poly(x, 9), method="lm") +
xlab("Annee") +
ylab("Taux de chomage") +
geom_vline(xintercept = c(1993,2008), color="grey", linetype="dashed") +
annotate("text", c(1993,2008), c(0.15), label=c("1993","2008"),
color="grey", family="xkcd") +
theme_xkcd()
print(plot_chomage)
Et voilà un graphe au style “xkcd” pour le taux de chômage en France ! Le sujet n’étant peut-être pas le plus adapté au format BD, je donne pour l’exemple le graphe des prénoms de l’article du 13 décembre que je me suis également amusé à xkcd-iser :
