Discussion :

[aurez2a]

Bonjour,

J'utilise cette fonction pour réaliser mes diagramme en secteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pie(table(orthos$Participation),main="Répartition des orthophonistes participant à l'étude",col=c("orangered","green3"))

J'aimerai affiches les modalités oui et non sur mon diagramme premièrement et ajouter dessus le pourcentage correspondant et l'effectif si possible.

Est-il possible d'appliquer la même fonction avec prop.table ? car je n'y suis pas arrivée c'est à dire ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pie(prop.table(table(orthos$Participation),main="Répartition des orthophonistes participant à l'étude",col=c("orangered","green3"))*100)

Cordialement.

[A. D.]

Bonjour,

1/ Pour que les labels s'affichent automatiquement sur le camembert, deux options (attention à l'ordre des valeurs et des labels !) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
part <- factor(orthos$Participation, levels = c(1, 2), labels = c("Oui", "Non"))
 
pie(table(part), main="Répartition des orthophonistes participant à l'étude", col=c("orangered","green3"))

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
pie(table(orthos$Participation), labels = c("Oui", "Non"),
     main="Répartition des orthophonistes participant à l'étude", col=c("orangered","green3"))

2/ Pour réaliser le camembert sur les pourcentages au lieu des effectifs (vous y étiez presque ;-) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
pie(100*prop.table(table(orthos$Participation),
     main="Répartition des orthophonistes participant à l'étude", col=c("orangered","green3"))

A noter que cela n'est pas nécessaire et que la fonction pie() transforme les valeurs quantitatives qu'on lui fournit en pourcentages.

3/ Une méthode pour afficher des valeurs (par exemple de pourcentages) sur votre camembert (à adapter ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
lbs <- c("Oui", "Non")
pct <- 100*prop.table(table(orthos$Participation))
lbs_complets <- paste(lbs, round(pct, 2), "%", sep = " ") # la fonction "paste" permet de concaténer des chaînes de caractères
 
pie(pct, labels = lbs_complets,
     main="Répartition des orthophonistes participant à l'étude", col=c("orangered","green3"))

Bonne continuation !


Cordialement,


A.D.