Problème d'affichage de légende.

[Jean-Emmanuel Longueville]

Le code suivant donne un graphique correct (après observation en détail les valeurs ne correspondent pas avec la position) :

Code : Tout sélectionner

 library(ggplot2)
    library(scales)
    library(dplyr);

    #Definition of data
    graph<-cbind.data.frame(
        sample(c("FI", "FA","FC"), 100, replace = TRUE),
        sample(c("Rep","Dip"),100, replace=TRUE)
    )
    names(graph)<- c("RegimeInscription","repondant")
   tabl <- graph %>% table() %>% prop.table(2) %>% data.frame() %>% group_by(repondant) %>% mutate(pos = cumsum(Freq) - (0.5 * Freq))
   
   #Some var
    theme_barre <- theme_bw()+
      theme(
       panel.grid=element_blank(),
       plot.title=element_text(colour = 'red', size=10, face="bold", hjust = 0.5, vjust = 0.5),
       legend.text=element_text(size=9),
       legend.key.size = unit(2, "mm"),
       panel.background = element_rect(fill = "transparent",colour = NA), # or theme_blank()
        plot.background  = element_rect(fill = "transparent",colour = NA),
        panel.grid.minor = element_blank()#,
       )
   
    #Make the graph
    tabl <- graph[,c("repondant","RegimeInscription")] %>% table() %>% prop.table(1) %>% data.frame() %>% group_by(repondant) %>% mutate(pos = cumsum(Freq) - (0.5 * Freq))
    ggplot(tabl, aes(x = factor(repondant), y=Freq, fill = factor(RegimeInscription) )) +#Initiation du graphique
      geom_bar(position = "fill", stat="identity")+ #Realisation du graphique
      theme_barre + #fond blanc
      coord_flip()+ #barre horizontale
      scale_fill_discrete( name=" ", labels=c("FI"="Fi","FA"="Fa","FC"="Fc") )+
      labs(x=" ", y=" ")+
      scale_y_continuous(breaks=seq(0,1,0.1), labels=percent)+
      ggtitle("Régime d'inscription")+
      geom_text( mapping = aes(x= factor(repondant), y = pos, label = lab(Freq) ),size=3)

Cependant quand je change les données par mes données personnelles j'ai le résultat suivant :



Auriez vous une idée du pourquoi du comment ?
Merci

[Mickael Canouil]

Bonjour,

le problème vient du fait que les "blocs" de votre facteur "RegimeInscription" sont empilé selon l'ordre des valeurs de celui-ci (alphabétique ici).
Dans ce cas ggplot, place le facteur "1" en haut. Lorsque vous calculer votre somme cumulée, vous comptez la somme dans l'ordre des modalités.
Ainsi, les positions calculées à la main sont exactement l'inverse de celle des blocs dans ggplot.

Deux solutions:

Code : Tout sélectionner

geom_text( mapping = aes(x= factor(repondant), y = 1-pos, label = lab(Freq) ),size=3)

ou plus pénible, changer l'ordre des modalités lors du calcul de la somme cumulée.

[Jean-Emmanuel Longueville]

Du coup j'ai du mal à comprendre comment GGplot place les différents facteurs dans l'ordre d'apparition ?

[Logez Maxime]

Bonjour,

Pour avoir une idée de comment est construit le graph tu peux utiliser la fonction ggplot_build.

Code : Tout sélectionner

g <- ggplot(tabl, aes(x = factor(repondant), y=Freq, fill = factor(RegimeInscription) )) +#Initiation du graphique
      geom_bar(position = "fill", stat="identity")+ #Realisation du graphique
      theme_barre + #fond blanc
      coord_flip()+ #barre horizontale
      scale_fill_discrete( name=" ", labels=c("FI"="Fi","FA"="Fa","FC"="Fc") )+
      labs(x=" ", y=" ")+
      scale_y_continuous(breaks=seq(0,1,0.1), labels=percent)+
      ggtitle("Régime d'inscription")+
      geom_text( mapping = aes(x= factor(repondant), y = pos, label = lab(Freq) ),size=3)
 
 g
 
 ggplot_build(g)     
 

Cordialement,
Maxime

[Mickael Canouil]

avec un petit exemple, ce sera peut-être plus clair:

Code : Tout sélectionner

dta <- data.frame(fill= c("A", "B", "C", "D"), y = c(0.10, 0.20, 0.30, 0.40))


Avec position "stack", ggplot2 utilise l'ordre des facteurs et les places empiler dans le même ordre que la légende, ainsi la première modalité est toujours en haut et la dernière en bas, comme sur la légende. (Simplicité de lecture)

Code : Tout sélectionner

ggplot(data = dta, aes(x = 1, y = y, fill = fill)) + geom_bar(stat = "identity", position = "stack")
ggplot(data = dta, aes(x = 1, y = y, fill = factor(fill, levels = c("B", "A", "D", "C")))) + geom_bar(stat = "identity", position = "stack")


Avec position "dodge", ggplot2 les modalités sont ordonnées de gauche à droite dans le sens de lecture classique

Code : Tout sélectionner

ggplot(data = dta, aes(x = 1, y = y, fill = fill)) + geom_bar(stat = "identity", position = "dodge")


Ainsi, dans ggplot2, les modalités sont placés de haut en bas ou de gauche à droite, après transformation en facteurs par défaut.

[Jean-Emmanuel Longueville]

Merci beaucoup pour vos réponses