Geom_Text не позиционирует просто ярлык над Geom_Bar

Question

Я следовал за кодом из этого поста , но у меня он не работает.Вот мой код и скриншот ниже.Можете ли вы помочь мне центрировать этикетку с интервалом чуть выше полосы?

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)

Answer 1

Проблема здесь ggplotly. Одним из решений является использование style(textposition = "top").

Воссоздание ваших данных:

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

Запуск первой секции вашего кода для генерации p:

p

Все хорошо. Но результат использования ggplotly:

ggplotly(p)

Добавление style():

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