如何在ggplot2中缩小左对齐(hjust=0)与右对齐(hjust=1)轴标签的间距

你的问题源于使用hjust分别设置标签左/右对齐时，ggplot会基于文本自身宽度分配空间，导致两类标签之间出现不必要的空隙。以下是几种可行的解决方法：

方法一：统一对齐基准+偏移调整 #

将所有标签设置为同一对齐方式，通过margin参数对需要左对齐的标签进行水平偏移，缩小间距：

var <- c("var1-very long text", "b", "very long text", "var2", "bb", "bla", "blah", "var3", "bbb", "bbbb")
y <- c(NA, 1, 2, NA, 1, 3, 2, NA, 3, 2)
lcl <- y - 0.5
ucl <- y + 0.5

df <- data.frame(var[10:1], y[10:1], lcl[10:1], ucl[10:1])
df$var <- factor(df$var, levels = unique(df$var))

library(ggplot2)
library(ggtext)

bold_vars <- c("var1-very long text", "var2", "var3")

# 定义偏移规则：需要左对齐的标签设置负右边距
margin_r <- ifelse(df$var %in% bold_vars, -12, 0)

p <- ggplot(data=df, aes(x=var, y=y, ymin=lcl, ymax=ucl)) +
  geom_pointrange() + 
  geom_hline(yintercept=1, lty=2) + 
  coord_flip() +  
  ylab("Blah") +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"),
        axis.title.y=element_blank(),
        # 统一右对齐，用margin调整偏移
        axis.text.y = element_text(hjust=1, margin = margin(r = margin_r))) + 
  scale_x_discrete(labels = c("var1-very long text" = expression(bold("var1-very long text")), 
                              "var2" = expression(bold("var2")), 
                              "var3" = expression(bold("var3"))))
print(p)

方法二：使用ggtext的markdown样式控制 #

借助ggtext的element_markdown，通过内联CSS样式直接调整标签位置，同时保留加粗效果：

var <- c("var1-very long text", "b", "very long text", "var2", "bb", "bla", "blah", "var3", "bbb", "bbbb")
y <- c(NA, 1, 2, NA, 1, 3, 2, NA, 3, 2)
lcl <- y - 0.5
ucl <- y + 0.5

df <- data.frame(var[10:1], y[10:1], lcl[10:1], ucl[10:1])
df$var <- factor(df$var, levels = unique(df$var))

library(ggplot2)
library(ggtext)

bold_vars <- c("var1-very long text", "var2", "var3")

p <- ggplot(data=df, aes(x=var, y=y, ymin=lcl, ymax=ucl)) +
  geom_pointrange() + 
  geom_hline(yintercept=1, lty=2) + 
  coord_flip() +  
  ylab("Blah") +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"),
        axis.title.y=element_blank(),
        # 使用markdown渲染文本，统一右对齐
        axis.text.y = element_markdown(hjust=1)) + 
  scale_x_discrete(
    labels = function(x) {
      ifelse(x %in% bold_vars,
             # 给加粗标签添加左偏移样式
             paste0("<b><span style='margin-left: -15px;'>", x, "</span></b>"),
             x)
    }
  )
print(p)

方法三：调整坐标轴留白 #

通过scale_x_discrete的expand参数减少坐标轴两侧的留白，让标签整体更紧凑（可配合前两种方法使用）：

在scale_x_discrete中添加：

expand = expansion(mult = c(0, 0.05))

说明 #

• 方法一的margin_r数值可根据实际标签长度调整，负数越大偏移量越大；
• 方法二更灵活，支持更复杂的文本样式定制；
• 方法三主要用于减少整体留白，对标签间的间距优化起辅助作用。

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