Bonjour,

Je dispose d'une base de données où j'ai mesuré s'il existait une relation entre deux variables qualitative grâce au chi2. A présent, je souhaiterais afficher graphiquement comment se présentes les écarts au modèle théorique (positif, négatif, etc). Grâce à mes recherches, j'ai trouvé la librairie VCD qui correspond complètement à mon besoin.

Je crée mon tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
> (tab = table(data$etat_sante_mental_bin, data$lieu, deparse.level = 2))
                          data$lieu
data$etat_sante_mental_bin A la campagne En ville
               1-TRES MAL             18        5
               2-MAL                  18        4
               3-BIEN                 67       28
               4-TRES BIEN           253       36
Voici le graphique que j'ai crée jusqu'à présent :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
> mosaic(tab, shade = TRUE, labeling_args=list(gp_labels=gpar(fontsize=16), gp_varnames = gpar(fontsize=18)), legend_args=list(fontsize=16), margins=unit(3, "lines"), legend_width= unit(7, "lines"), labeling= labeling_border(rot_labels = c(0, 0, 0, 0), just_labels = c("left", "center", "center", "right")))
https://zupimages.net/viewer.php?id=20/22/73uj.png --> Pas très propre, mais je suis plutôt content du résultat.

A présent, j'aimerais "coller" au centre de chacun de mes rectangles la valeur pourcentage ligne correspondante. J'ai vu du côté de "labeling_cells", mais je ne sais pas du tout comment m'y prendre ...

Merci.