A estética alfa mostra o esqueleto da flecha em vez da forma simples - como evitá-lo?

Meu objetivo é construir um gráfico de barras com flechas no final das barras. Eu fui geom_segmentcom arrowdefinido. Quero mapear uma coluna para a transparência, mas a estética alfa não parece funcionar bem com o objeto de seta. Aqui está o trecho de código: tibble(y = c(10, 20, 30), n = c(300,...