метки на гистограмме касаются верхней горизонтальной линии

Question

Я пытаюсь создать гистограмму в блестящем контексте. Все выглядит хорошо, но этикетки. Как вы можете видеть на изображении ниже, некоторые надписи скрыты за верхней горизонтальной линией.

    Diff_plot <- reactive({
    ggplot(Diff_data(), aes(x =Difficulty_Type, y = Percentage, fill=County.y)) + geom_bar(stat =
                                                                       "identity",
                                                                       position = position_dodge()
             ) +

      scale_fill_manual(values=cbbPalette)+

      geom_text(
        aes(label = Percentage2),
        vjust = 0,
        colour = "black", 
        position = position_dodge(width=0.9),
        fontface = "bold",
        size=4,
        angle = 90,
        hjust = 0
      ) + 
      labs(
        x = "",
        y = "Frequecny",

        face = "bold"
      ) +
      theme_bw() + scale_y_continuous(labels = scales::comma) +
      theme(plot.title = element_text(
        hjust = 0.5,
        size = 15,
        colour = "Black",
        face = "bold"
      )

Answer 1

Вы можете использовать комбинацию hjust и vjust, чтобы установить текст поверх гистограммы.

Используя hjust = -1, вы получите больше места между верхней частью гистограммы и текстом. Если ваш текст скрыт верхней горизонтальной линией, вы можете увеличить пределы оси y, используя ylim

df <- data.frame(X = LETTERS[1:3],
                 Y = sample(1:10,3),
                 labels = letters[4:6])

library(ggplot2)
ggplot(df,aes(x = X, y = Y, label = labels))+
  geom_col()+
  geom_text(angle = 90, hjust = -1, vjust = 0.5)+
  ylim(0,6.5)