条形图中的标签接触顶部水平线

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，可以在条形图的顶部和文本之间获得更多的空间。如果您的文字被顶部水平线隐藏，则可以使用ylim

来增加y轴的限制

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)