如何解决ggplot中geom_text标签超出绘图区域的定位问题

我有如下数据框：

foo = read.table(text="
protein1    1.51E-02    5   label1
protein2    9.06E-05    850 label2
protein3    3.38E-05    1155    label1
protein4    3.38E-05    1154    label1
protein5    6.64E-03    35  label3
protein6    5.32E-03    44  label4",
sep="\t", col.names=c("category", "value", "rank", "ToLabel"))

我想绘制以rank为X轴、value为Y轴的柱状图，并添加ToLabel列中的标签，我的绘图代码如下：

ggplot(data=foo, aes(x=rank, y=value)) +
  geom_bar(stat="identity") +
  geom_col(fill="dark grey") +
  labs(x = "Rank",
       y = "Value") +
  theme_bw() +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) +
  scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) +
  scale_fill_manual( values = c( "yes"="red", "no"="black" ), guide = "none" ) +
  geom_pointrange(data = foo, aes(x=rank, y=value, ymin = 0, ymax = 0)) +
  #geom_text(data = genes_df, aes(x=rank, y=relative_iBAQ, label = ToText), vjust = 0, angle=45, size = 1)
  geom_text(data = foo, aes(label = ToLabel), 
            position = position_stack(vjust = 1.1), angle=45, size = 3)

问题：标签没有显示在绘图区域内，请问该如何调整标签位置？

• 直接指定标签Y轴位置：你的柱状图并非堆叠结构，无需用position_stack，直接给标签设置比柱子顶端稍高的Y值，确保标签落在绘图区内。示例：

  geom_text(data = foo, aes(x=rank, y=value + 0.001, label = ToLabel), 
            angle=45, size = 3, hjust=0)
  

  其中0.001可根据你的value实际范围调整，保证标签不被柱子遮挡且处于可见区域。

• 扩展Y轴上限：如果标签超出绘图区顶部，修改scale_y_continuous来扩大Y轴范围，给标签预留空间：

  scale_y_continuous(expand = c(0, 0), limits = c(0, max(foo$value)*1.1))
  

• 清理冗余代码：你同时使用了geom_bar(stat="identity")和geom_col，二者功能重复，保留geom_col即可；另外scale_fill_manual的映射规则和你的数据不匹配（数据中无yes/no分组），可直接删除该行避免干扰。

• 优化X轴与标签对齐：若rank为唯一离散值，可将其转为因子类型，让柱子间距更合理，标签对齐更轻松：

  foo$rank <- factor(foo$rank)
  ggplot(data=foo, aes(x=rank, y=value)) +
    geom_col(fill="dark grey") +
    labs(x = "Rank", y = "Value") +
    theme_bw() +
    theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) +
    scale_y_continuous(expand = c(0, 0), limits = c(0, max(foo$value)*1.1)) +
    geom_text(aes(label = ToLabel), y = max(foo$value)*1.05, angle=45, size=3)
  

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