gestion ggplot2 pour un pie chart avec facet_wrap et geom_text

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?

Pièce jointe 650971


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)

dslé g pu trouvé la bonne solution à mon pbm. Il s'agissait bien des coordonnées des x et y de geom_txt qui posaient pbm. En voici la solution:

bp <- ggplot(data,aes(x=factor(1), y=amount, fill=factor(category)))+
geom_bar(width = 2, stat = "identity", position = "fill")+
coord_polar("y", start = 0)+
scale_y_continuous(labels = scales::label_number(accuracy =0.1))+
scale_fill_brewer(palette = 1)+
geom_text(size = 3,
data = data,
mapping = aes(x=1.5,y=c(0.5,0.5,0.5,0.5),label=amount),
position = position_stack(vjust=0.3), #position = position_stack(vjust=0.5),
check_overlap = TRUE)


bp+facet_wrap( ~ annee, ncol = 2)