如何在ggplot2中自定义指定位置的坐标轴刻度？

你的原始代码已经创建了一个隐藏默认y轴刻度的水平条形图，要在每个条形的末端（对应数值的位置）添加黑色刻度，我们可以用geom_segment手动绘制这些自定义刻度来实现需求：

完整解决方案代码 #

df <- data.frame(dose=c("D0.5", "D1", "D2"), len=c(4.2, 10, 29.5))
library(ggplot2)

# 创建水平条形图并添加自定义末端刻度
ggplot(data=df, aes(x=dose, y=len)) + 
  geom_bar(stat="identity") +
  # 绘制条形末端的横向刻度：对齐每个条形的数值端点
  geom_segment(
    aes(
      x = as.numeric(dose) - 0.1,  # 刻度左端点位置
      xend = as.numeric(dose) + 0.1, # 刻度右端点位置
      y = len,  # 刻度纵向对齐条形末端数值
      yend = len
    ),
    color = "black", 
    size = 0.7  # 刻度线粗细，可按需调整
  ) +
  coord_flip() +
  theme(axis.ticks.y = element_blank())  # 保留原设置隐藏默认y轴刻度

代码细节说明 #

1. geom_segment的核心作用：这个函数专门用来绘制自定义线段，我们通过数据映射精准定位每个刻度：
   • 把分类变量dose转成数值（对应1、2、3），通过加减0.1控制刻度的长度，数值越大刻度越长
   • 固定y和yend为条形末端的数值len，确保刻度和条形端点完全对齐
2. 自定义调整选项：
   • 想要更粗/更细的刻度，修改size参数即可
   • 若要改变刻度颜色，直接调整color参数
   • 如果希望刻度方向或位置变化，比如移到条形内侧，只需修改x和xend的偏移逻辑

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