Commit 99c242d8 authored by Bakaniko's avatar Bakaniko

Ajout des valeurs sur les diagrammes

parent 719a6d3c
......@@ -79,7 +79,8 @@ diag_bars <- function(df,variable,poids,repertoire, labels){
legend.position="bottom") +
scale_fill_manual(values=alpha(rainbow(10),.75),
name=labels[[variable]][['libelle']],
labels= labels[[variable]][['etiquettes']])
labels= labels[[variable]][['etiquettes']])+
geom_text(stat = 'count',aes(label=..count..))
#figure
#figure
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment