ggplot柱形图Y轴多列信息标签对齐实现方法咨询

核心思路：使用ggtext包的markdown文本解析能力，通过给标签不同片段设置固定inline宽度的样式，即可在非等宽字体下实现多段内容的精准对齐，不需要拼接多图，也不需要手动适配不同长度的标签。

步骤1：安装加载依赖包 #

未安装相关依赖可先执行安装：

install.packages(c("ggplot2", "ggtext", "dplyr"))

加载依赖：

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

步骤2：构造带样式的Y轴标签 #

根据你需要展示的信息段数，给每一段设置固定宽度，支持自定义对齐方式：

# 你的示例数据集
dt = data.frame(shirt = c('Red','Turquoise','Red','Turquoise','Red','Turquoise','Red','Turquoise'), 
                group = c('Group alpha','Group alpha','Group beta','Group beta','Group delta','Group delta','Group gamma','Group gamma'),
                n = c(22,21,15,18,33,34,20,19),
                mean = c(1,   4,  9,  2,  4,  5 , 1, 2),
                p = c(0.1, 0.09, 0.2, 0.03, 0.05, 0.99, 0.81, 0.75))

# 生成带固定宽度样式的Y轴标签映射表
label_map <- dt %>%
  distinct(group, n, p) %>%
  mutate(
    y_label = paste0(
      # 第一段：组名，固定宽度100px，左对齐
      "<span style='display: inline-block; width: 100px;'>", group, "</span>",
      # 第二段：样本量n，固定宽度50px，右对齐
      "<span style='display: inline-block; width: 50px; text-align: right;'>n=", n, "</span>",
      # 第三段：p值，固定宽度60px，右对齐
      "<span style='display: inline-block; width: 60px; text-align: right;'>p=", round(p, 2), "</span>"
    )
  )

# 将自定义标签映射回原数据集
dt <- dt %>% left_join(label_map, by = c("group", "n", "p"))

步骤3：绘图并启用markdown解析 #

ggplot(dt, aes(x = mean, y = y_label, fill = shirt)) +
  geom_col(position = position_dodge(width = 0.8), width = 0.7) +
  labs(x = "均值", y = NULL) +
  theme_minimal() +
  # 核心配置：Y轴文本启用markdown解析
  theme(
    axis.text.y = element_markdown(size = 10)
  )

你可以根据实际需求调整每段span标签里的width参数值控制列宽，text-align参数调整对应段的对齐方式（左对齐left、右对齐right、居中center），完全不需要调整hjust参数，也不需要使用等宽字体即可实现所有标签的整齐对齐。

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