Bonjour,
j'ai un soucis dans l'affichage d'un diagramme circulaire ventilé sur plusieurs panneaux (facet_wrap) et l'ajout de données textes ou valeurs des diagrammes. Jusqu'à la couche de la commande scale_fill_brewer, j'obtiens un resultat attendu. Puis l'ajout de la couche texte fait disparaitre les diagrammes, ou presque. Est-ce un problème de fixation des coordonnées de texte?
Voici les code à partir d'un jeu simple de données :
data <- data.frame("category" = c('A', 'B', 'A', 'B'),
"annee"=c(2017,2017,2022,2022),
"amount" = c(25, 40, 27, 8))
data$category <- factor(data$category, levels = rev(data$category))
bp<- ggplot(data,aes(x=factor(1), y=amount, fill=factor(category)))+
geom_bar(width = 1, stat = "identity", position = "fill")+
coord_polar("y")+
scale_y_continuous(labels = scales::label_number(accuracy =0.1))+
facet_wrap( .~ annee, ncol = 2)+
scale_fill_brewer(palette = 1)+
geom_text(size = 3,
data = data,
mapping = aes(label=amount),
position = position_stack(vjust=0.0), #position = position_stack(vjust=0.5),
check_overlap = FALSE)
Partager