如何避免ggplot中轴刻度绘制在轴线之上？

我完全懂你遇到的这个别扭问题——把ggplot的轴线加粗后，因为默认绘制顺序是先画轴线再画刻度，刻度直接叠在粗轴线上，视觉上特别违和。默认细轴线时看不出来，是因为刻度刚好从轴线边缘起步，粗细可以忽略不计。

下面给你三种实用的解决方法，按需选择就行：

方法1：调整刻度长度，让刻度从轴线外侧延伸 #

这种方法不需要额外包，只需要根据轴线粗细调整刻度长度，确保刻度从轴线外侧出发，而非轴线中心。比如当轴线size=3时，轴线半宽是1.5pt，把刻度长度设得比这个值大一点，就能避免覆盖：

library(ggplot2)

ggplot(mpg, aes(cty, hwy)) +
  geom_col() +
  theme_light() +
  theme(
    axis.line.x = element_line(color = "black", size = 3), # 加粗X轴轴线
    axis.ticks.length = unit(2, "pt"), # 刻度长度超过轴线半宽，确保从外侧延伸
    axis.ticks.x = element_line(color = "gray50") # 自定义刻度颜色，和主题保持协调
  )

方法2：手动绘制轴线，放在刻度之后 #

如果觉得调整刻度长度不够灵活，可以先隐藏默认轴线，再用annotate手动绘制粗轴线——annotate的元素会在刻度之后绘制，自然不会被覆盖：

library(ggplot2)

ggplot(mpg, aes(cty, hwy)) +
  geom_col() +
  theme_light() +
  theme(
    axis.line.x = element_blank(), # 隐藏默认X轴轴线
    axis.ticks.x = element_line(color = "gray50") # 保留原刻度样式
  ) +
  # 手动绘制和默认轴线位置一致的粗线
  annotate("segment",
           x = -Inf, xend = Inf,
           y = -Inf, yend = -Inf,
           color = "black", size = 3,
           lineend = "square" # 让轴线两端更整齐
  )

方法3：修改图层顺序（进阶方法） #

如果想保留默认theme元素的结构，可以用gtable调整图层顺序，把轴线移到刻度之后绘制。这种方法需要用到gtable和grid包，适合对ggplot底层结构熟悉的用户：

library(ggplot2)
library(gtable)
library(grid)

# 先绘制基础图表
p <- ggplot(mpg, aes(cty, hwy)) +
  geom_col() +
  theme_light() +
  theme(
    axis.line.x = element_line(color = "black", size = 3)
  )

# 提取图表的gtable对象
gt <- ggplotGrob(p)

# 定位X轴轴线和刻度的图层位置
line_idx <- which(gt$layout$name == "axis.line.x.bottom")
ticks_idx <- which(gt$layout$name == "axis.ticks.x.bottom")

# 把轴线图层移到刻度图层之后
gt$layout <- rbind(gt$layout[-line_idx, ], gt$layout[line_idx, ])

# 绘制调整后的图表
grid.draw(gt)

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