Histogramme et visualisation des individus

[William Denault]

Bonjour,

Je cherche depuis quelque temps une façon de dessiner un genre d'histogramme particulier.
Je souhaite faire un histogramme des valeurs d'une colonne d'un data.frame, jusque la rien de très original. Cependant il faudrait que chaque colonne de l'histogramme soit subdivisé en carré/rectangle contenant le "nom" de l'individu (dans mon cas cela serait le numéro de la ligne), de sorte que l'on puisse voir dans quelle colonne de l'histogramme se trouve l'observation de tel ou tel individu

Par exemple dans l'histogramme que génère le code en dessous, il faudrait que la première colonne soit divisée en deux parties l'une libéllée 1 et l'autre libellée 5, la deuxième colonne divisée en 3 parties avec respectivement les numéros 2 8 et 9.

meana<-c(1,2,3,4,1,2,3,2,2)
a<-data.frame(meana)
rownames(a, do.NULL = TRUE, prefix = "row")
hist(a$meana)

Si vous avez un début de solution je suis preneur,


Bien cordialement

William

[Mickael Canouil]

Bonjour,

voici une proposition utilisant ggplot2

Code : Tout sélectionner

dta <- data.frame(x = c(1,2,3,4,1,2,3,2,2), ID = LETTERS[seq_len(9)])
ggplot(data = dta, aes(x = x, fill = ID)) + geom_bar()

[William Denault]

Merci pour la proposition,

Cependant mes rendu sont en noir et blanc exclusivement (voir nuance de gris) et mon nombre de participant avoisine la centaine. Cette solution bien que jolie ne permet pas répondre à mon besoin.

Cordialement,
William

[Mickael Canouil]

Je ne vois pas où est le problème...
il est tout à fait possible de mettre une palette de gris dans l'histogramme.
De même que l'affichage de "label"

Code : Tout sélectionner

library(ggplot2)
library(plyr)
dta <- data.frame(x = sample(seq(25), 100, replace = TRUE), ID = seq_len(100))
dat <- ddply(dta, .(x), function(.) {
    res <- cumsum(prop.table(table(factor(.$ID))))*length(.$ID) -0.5
    data.frame(lab = names(res), y = c(res))
})
ggplot(data = dat, aes(x = x)) +
    geom_bar(aes(fill = lab)) +
    scale_fill_grey() +
    geom_text(aes(label = lab, y = y), colour = "white", size = 5) +
    theme(legend.position = "none")