Etiquettes dans un histogramme

Bonjour,
Voici un petit programme tout simple qui dessine un histogramme

Code:

---

1 2	X <- c(2,3,2,4,6,2,3,4,4,4,6,7,7,8) hist(X, breaks=0:10,xlim=c(0,10),col='cyan', labels=as.character(table(X)), cex.lab=0.7)

---

Mon souci concerne les étiquettes.
D'une part elles sont décalées, d'autre part leur taille ne semble pas modulable, malgré l'option cex.lab=0.7.

Le décalage se produit parce que R recycle les résultats de la fonction table().
Il est possible de créer un vecteur d'étiquettes qui prenne toutes les valeurs possibles. Par exemple avec ceci

Code:

---

1 2 3 4

Y <- data.frame(table(X)) XLab <- merge(data.frame(X=1:10),Y,by='X',all.x=TRUE) XLab$Freq[is.na(XLab$Freq)] <- 0 hist(X, breaks=0:10,xlim=c(0,10),col='cyan', labels=as.character(XLab$Freq), cex.lab=0.7)

---

Mais je trouve ça très lourd et je me dis qu'il doit y avoir des manières plus courtes et élégantes de procéder. Est-ce que quelqu'un aurait une idée ?

Quant à la taille des étiquettes, là je ne sais pas quel est le paramètre qui permet de modifier la taille des caractères !

Est-ce que quelqu'un saurait régler ces questions ?
Je souhaite ajouter des étiquettes dans un histogramme

Bonjour.
Au cas où une solution avec {ggplot2} te conviendrait...

Code:

---

1 2 3 4 5 6 7 8

library(ggplot2)   X <- c(2,3,2,4,6,2,3,4,4,4,6,7,7,8) ggplot(data.frame(X=X)) + aes(x=X) + geom_histogram(binwidth = 1, fill="cyan", colour="black") + geom_text(aes(label=..count..), stat="count", vjust = -0.5) + scale_x_continuous(breaks=0:10, limits=c(0,10))

---

bonjour,

je sais pas si cette solution est top mais tu peux essayer ça

Code:

---

1 2 3 4

par(xpd=TRUE) h = hist(X, breaks = 0:10, plot=FALSE) plot(h, xlim = c(0,10), labels = as.character(h$counts), col="cyan")

---

sinon tu peux utiliser ça https://stackoverflow.com/questions/...stogram-labels qui s'appuie sur la fonction tex et qui te permet de changer la taille, ac le par(xpd=TRUE) tu peux avoir ta valeur sur la colonne qui "sort des limites" car tu permets l'écriture dans la marge

bon courage

Citation:

---

Envoyé par olivier.decourt

... Au cas où une solution avec {ggplot2} te conviendrait...

---

Merci Olivier,
Je ne me suis pas encore attaqué sérieusement à ggplot qui me semble bien compliqué, malgré les tutos.
C'est peut-être l'occasion ... je ne sais pas encore

Merci Alpacky
Je crois que je vais rester sur cette solution qui me semble plus simple conceptuellement, en la modifiant légèrement selon le modèle du lien que tu as transmis https://stackoverflow.com/questions/...stogram-labels

Code:

---

1 2 3

par(xpd=TRUE) h = hist(X, breaks = 0:10) text(x = h$mids, y = h$counts, labels = h$counts, pos = 3)

---

Un second appel à une fonction plot() n'est plus nécessaire