如何调整ggplot中x轴特定tick label的垂直位置

要单独将X轴上3.10对应的刻度标签向下偏移6像素，其余标签保持原位，可以用以下两种方法实现：

方法一：结合grid包手动调整grob对象 #

先绘制基础图形，再通过grid包定位并修改目标刻度标签的位置：

library(dplyr)
library(ggplot2)
library(grid)

dat = data.frame(name=c("apple", "orange", "plum"), value=c(3,8,2), outlier=c(FALSE,TRUE,FALSE))

# 生成基础绘图对象
p <- ggplot(dat, aes(x = value, y = name)) + 
  geom_point() +
  scale_x_continuous(limits = c(2, 9), breaks = c(3.10, 2:9))

# 绘制图形并获取X轴的grob组件
grid.draw(p)
axis_grob <- grid.get("axis-b") # 获取底部X轴

# 定位3.10对应的标签索引
target_idx <- which(axis_grob$children[[2]]$label == "3.1")

# 向下偏移6像素，将npc单位转换为像素单位调整
axis_grob$children[[2]]$y[target_idx] <- axis_grob$children[[2]]$y[target_idx] - unit(6, "pt")

# 更新并重新绘制图形
grid.newpage()
grid.draw(axis_grob)

方法二：用ggtext包通过markdown样式实现偏移 #

利用ggtext的markdown渲染功能，给目标标签添加样式实现精准偏移：

library(dplyr)
library(ggplot2)
library(ggtext)

dat = data.frame(name=c("apple", "orange", "plum"), value=c(3,8,2), outlier=c(FALSE,TRUE,FALSE))

# 自定义刻度标签函数，为3.10添加向下偏移的样式
custom_labels <- function(x) {
  ifelse(x == 3.10, 
         paste0("<span style='position: relative; top: 6px;'>", x, "</span>"),
         as.character(x))
}

ggplot(dat, aes(x = value, y = name)) + 
  geom_point() +
  scale_x_continuous(limits = c(2, 9), breaks = c(3.10, 2:9), labels = custom_labels) +
  theme(axis.text.x = element_markdown()) # 启用markdown解析

注：方法二中的top: 6px表示向下偏移6像素，若需向上偏移可改为负数。

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