Geom_Text not positioning vjust label over Geom_Bar

Question

I was following code from this post but it is not working the same for me. Here's my code and screenshot below. Can you help me center the label with spacing just above the bar?

Click Here - Screenshot

p <- ggplot(data=mrc, aes(x = Year, y = Total, fill = Year)) + 
  geom_bar(stat="identity", position = "dodge") +
  geom_text(
        aes(x = Year, y = Total, label = Total),
        position = position_dodge(width = 1),
        vjust = -0.5, size = 3
  ) +
  theme_bw() +
  scale_fill_manual(values = c("#115740","#B9975B","#D0D3D4","#F0B323")) +
  theme(axis.title.x=element_blank(),
        axis.title.y=element_blank(),
        legend.position = "none",
        plot.title = element_text(hjust = 0.5, face = "bold", colour = "#B9975B")) +
  ggtitle("Petitions") 

ggplotly(p)

Unrelated, but you can simplify your code by using geom_col() instead of geom_bar(stat="identity", position = "dodge") and omitting the position = argument to geom_text. — neilfws
@neilfws Thanks for the tip mate. Why use geom_col() instead? And why omit position? — Willy
@Willy less typing :) and position makes no difference in this case. — neilfws

neilfws neilfws · Accepted Answer · 2019-07-02T22:58:16

The issue here is ggplotly. One solution is to use style(textposition = "top").

Recreating your data:

mrc <- data.frame(Year = c("2015-16", "2016-17", "2017-18", "2018-19"),
                  Total = c(225, 461, 471, 230),
                  stringsAsFactors = FALSE)

Running the first section of your code to generate p:

All good. But the result using ggplotly:

ggplotly(p)

Adding style():

ggplotly(p) %>% style(textposition = "top")

Geom_Text not positioning vjust label over Geom_Bar

1 Answers