Commit 499a0ce1 authored by Bakaniko's avatar Bakaniko

Gestion automatique du nombre de couleurs disponibles

rainbow(length(labels[[variable]][['etiquettes']]))
parent 224e3ffd
......@@ -77,10 +77,13 @@ diag_bars <- function(df,variable,poids,repertoire, labels){
face = 'bold',
size = 14),
legend.position="bottom") +
scale_fill_manual(values=alpha(rainbow(16),.75),
scale_fill_manual(values=alpha(rainbow(length(labels[[variable]][['etiquettes']])),.75),
name=labels[[variable]][['libelle']],
labels= labels[[variable]][['etiquettes']])+
geom_text(stat = 'count',aes(label=..count..))
geom_text(stat = 'count'
, aes(label=..count..),
postion = position_dodge(width = 0.9),
vjust = 0)
#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