Chapitre 15 Défi 4

Créez votre propre graphique et suivez ces recommandations : * Jeu de données : n’importe lequel (recommandation : utilisez votre jeu de données) * Explorez un nouveau geom_* et d’autres couches de graphiques

Utilisez les liens suivants pour obtenir des conseils :

15.1 Défi 4: Solution exemple 1

data(msleep)
ggplot(msleep, aes(x = vore, y = log10(brainwt), fill = vore)) +
    geom_violin() + geom_signif(comparisons = list(c("herbi",
    "insecti"))) + labs("Poids du cerveau pour les différents -vores",
    y = "log10(Poids du cerveau (Kg))") + scale_fill_grey() +
    theme_classic()

15.2 Défi 4: Solution example 2

data(mtcars)
# let's do some clustering!
mtcars.short <- mtcars[1:20, ]
mtcars.short.hc <- hclust(dist(mtcars.short), "average")

ggdendrogram(mtcars.short.hc, rotate = TRUE) + # fine-tuning ggdendrogram(mtcars.short.hc,
ggdendrogram(mtcars.short.hc, rotate = TRUE) + # fine-tuning rotate
ggdendrogram(mtcars.short.hc, rotate = TRUE) + # fine-tuning =
ggdendrogram(mtcars.short.hc, rotate = TRUE) + # fine-tuning TRUE)
ggdendrogram(mtcars.short.hc, rotate = TRUE) + # fine-tuning +
ggdendrogram(mtcars.short.hc, rotate = TRUE) + # fine-tuning #
ggdendrogram(mtcars.short.hc, rotate = TRUE) + # fine-tuning fine-tuning
labs(title = "Dendrogramme des voitures selon les spécifications du moteur",
    y = "Voitures") + theme(axis.title.y = element_text(size = 16),
    axis.text.y = element_text(size = 12), axis.title.x = element_blank(),
    axis.text.x = element_blank(), plot.title = element_text(size = 14,
        face = "bold"))