解决ggplot中facet_wrap下geom_label被截断及动态定位问题

问题1：避免one和two组的geom_label被截断 #

• 扩展坐标轴范围：通过expand_limits()扩展对应轴的显示范围，给标签预留足够空间。以垂直条形图为例：

  ggplot(df, aes(x = group, y = value)) +
    geom_col() +
    geom_label(aes(label = value)) +
    facet_wrap(~facet_group) +
    expand_limits(y = max(df$value) * 1.1)  # 将y轴扩展至最大值的1.1倍
  

• 调整绘图边距：用theme()的plot.margin参数增加绘图区域的边距，防止边缘标签被截断：

  ggplot(df, aes(x = group, y = value)) +
    geom_col() +
    geom_label(aes(label = value)) +
    facet_wrap(~facet_group) +
    theme(plot.margin = margin(1, 1, 1, 1, "cm"))  # 上、右、下、左各留1cm边距
  

• 将标签嵌入条形内部：如果条形高度足够，设置hjust和vjust让标签显示在条形内部，避免超出绘图区域：

  ggplot(df, aes(x = group, y = value)) +
    geom_col(fill = "steelblue") +
    geom_label(aes(label = value), hjust = 0.5, vjust = 1.5, color = "white") +
    facet_wrap(~facet_group)
  

问题2：动态设置geom_label位置，自动适配条形大小 #

• 用after_stat()动态计算位置：针对条形图，利用after_stat()获取当前条形的高度（垂直条形对应y，水平条形对应x），按比例设置标签偏移量，适配不同分面的条形大小：

  ggplot(df, aes(x = group, y = value)) +
    geom_col() +
    geom_label(
      aes(label = value, y = after_stat(y) + 0.03 * after_stat(ymax)),
      stat = "identity"
    ) +
    facet_wrap(~facet_group)
  

  这里的0.03 * after_stat(ymax)会根据当前分面的最大条形高度计算偏移，自动适配不同组的条形尺寸。
• 借助ggrepel包自动调整：ggrepel的geom_label_repel()能自动检测标签与图形元素的位置，动态调整标签位置，既避免重叠也不会被截断，无需手动调参：

  library(ggrepel)
  
  ggplot(df, aes(x = group, y = value)) +
    geom_col() +
    geom_label_repel(aes(label = value)) +
    facet_wrap(~facet_group)
  

内容的提问来源于stack exchange，提问作者Larissa Cury