L'esthétique Alpha montre le squelette de la flèche au lieu de la forme simple - comment l'empêcher?

Je vise à construire un graphique à barres avec des flèches à la fin des barres. Je suis allé geom_segmentavec arrowdéfini. Je veux mapper une colonne sur la transparence, mais l'esthétique alpha ne semble pas fonctionner correctement avec l'objet flèche. Voici l'extrait de code: tibble(y = c(10,...