Para os rótulos serem posicionados adequadamente, use position_stack
, com a opção vjust = .5
se quiser centralizado. Coloque a opção fill
na estética global, para ser entendida por todas geometrias como a variável de agrupamento (ou mantenha fill
na estética da geom_col
e use a opção group
na global).
Quanto à ordem dos anos, a scale_*_date
não aceita a opção trans
. Pode converter o ano para numérico e usar scale_*_reverse
.
Como não postou seus dados, estou criando um data.frame de exemplo:
library(ggplot2)
# Dados de exemplo
set.seed(367)
dados <- data.frame(
ano = rep(as.Date(paste0(2011:2020, "-07-01")), each = 4),
grupo = rep(LETTERS[1:4], 10),
valor = sample(2:50, 40))
dados$ano <- as.numeric(format(dados$ano, "%Y"))
ggplot(dados, aes(x = ano, y = valor, fill = grupo)) +
geom_col() +
geom_text(aes(label = valor), position = position_stack(vjust = .5)) +
scale_x_reverse(breaks = unique(dados$ano)) +
coord_flip()
dput
) e veja como fazer uma pergunta reproduzível em R. Assim, as pessoas que desejarem te ajudar conseguirão fazer isto da melhor maneira possível.