如何在ggplot中将geom_text锚定至X轴(y≤0处)并设置45度角

嘿，我明白你想要的效果——让标签固定在X轴区域，而不是跟着条形高度走对吧？原来用vjust或者position_nudge都是相对调整，确实没法做到绝对锚定，关键是要给标签指定一个固定的y坐标，而不是依赖条形的numofpics值。

下面是修改后的完整代码，我标注了关键改动：

ggplot(data=df) +
  geom_bar(aes(x=row, y=numofpics, fill = crop, group = 1), stat='identity') +
  geom_point(aes(x = row, y=numofparcels*50, group = 2), alpha = 0.25) +  # 去掉冗余的df$引用
  geom_line(aes(x = row, y=numofparcels*50, group = 2), alpha = 0.25) +   # 同上
  # 核心改动：固定y为负数（比如-15），设置45度角，调整左对齐避免截断
  geom_text(aes(x=row, y=-15, label=bbch), angle=45, hjust=0) +
  geom_hline(yintercept=300, linetype="dashed", color = "red", size=1) +
  scale_y_continuous(
    sec.axis= sec_axis(~./50, name="Number of Parcels"),
    expand = expansion(mult = c(0.15, 0.05))  # 扩展y轴底部空间，确保标签显示
  ) +
  scale_x_discrete(name = "", breaks = unique(df$crop), labels = as.character(unique(df$crop)))+
  labs(y="Number of Pictures")

关键改动说明： #

• 绝对锚定y坐标：把geom_text里的y=numofpics换成固定的负数（比如-15），这个数值可以根据你的图表尺寸调整，确保标签在X轴下方或紧贴X轴。
• 设置45度角：直接添加angle=45参数，配合hjust=0让标签左对齐，防止文字超出图表左边界。
• 扩展y轴下限：通过expand = expansion(mult = c(0.15, 0.05))给y轴底部留出足够空间，避免标签被截断。
• 清理代码：去掉了aes里冗余的df$引用，这是ggplot的规范写法，能避免潜在的环境变量问题。

小提示： #

如果标签和X轴刻度重叠，你可以把y值调得更负一点（比如-20），或者增大expand参数里的第一个数值（比如0.2）来增加底部空间。要是需要微调垂直对齐，加个vjust=0.5就能让标签在指定y位置垂直居中啦。

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