2

Preciso ajustar a posição de um texto no gráfico de barras para que ele fique acima da barra. Abaixo o código utilizado

base.total %>%
  group_by(SEXO, REGIME.JURIDICO.FINAL)%>%
  count() %>%
  ggplot(., aes(x=reorder(SEXO, -n), y=n, fill = REGIME.JURIDICO.FINAL)) +
  geom_bar(stat="identity", width = 0.2, position = "dodge") +
  labs(title = "Gráfico 11: Quantidade de Inativos Civis e Militares",
       subtitle = "Fonte: Base de Dados SIGRH", x = "Sexo", y="Quantidade") + 
  theme(axis.line.x = element_line(size = .5, colour = "black"),
        axis.line.y = element_line(size = .5, colour = "black"),
        axis.text.x = element_text(colour = "black", size = 7),
        axis.text.y = element_text(colour = "black", size = 7),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(), 
        panel.background = element_blank(),
        legend.title = element_blank()) +  
  geom_text(aes(label = n), size = 3.0, position = position_dodge(width = 0.2))

Resultado do código acima

1 Resposta 1

3

Achei uma sugestão no Stack Overflow em inglês (nesse tópico). Adaptando para o seu exemplo, ficaria assim

geom_text(aes(label=n, y = n+0.01), size = 3.0, position = position_dodge(width = 0.2))
3
  • Acrescentei o geom_text(aes(label = n, y = n+1), size = 3.0, position = position_dodge(width = 0.2)) E nada aconteceu Commented 4/08/2017 às 13:06
  • tenta adicionar um valor mais alto, por causa da escala do eixo y Commented 4/08/2017 às 13:09
  • 1
    Consegui resolver fiz o geom_text(aes(label = n, y = n+3000), size = 3.0, position = position_dodge(width = 0.2)) para resolver o problema. Commented 4/08/2017 às 13:09

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .