Ajouter une barre de moyenne à un histogramme avec lattice.

[Antoine Dujon]

Bonjour,

J'aimerais deux informations à propos des histogrammes réalisés avec le package Lattice.

1- Voici un histogramme que j'ai réalisé avec Lattice. Comment y ajouter un marqueur de moyenne?



2- Comment dans le titre de l'axe des Ordonnées mettre uniquement le C. edule en italique?

Merci d'avance.

[Renaud Lancelot]

Code : Tout sélectionner

dfr <- data.frame(z = factor(rep(c("A", "B", "C"), each = 100)),
                  x = c(rnorm(100, 1, 1), rnorm(100, 3, 1), rnorm(100, 5, 1)))
library(lattice)
histogram(~ x | z, data = dfr, layout = c(1, 3), between = list(y = 1/2),
    ylab = expression(paste("Nombre de ", italic(C.~edule))),
    panel = function(x, ...){
        panel.histogram(x, ...)
        panel.abline(v = mean(x), col = "red", lwd = 2)
        })

Renaud