如何让ggplot条形图的横轴标签与绘图区比例统一？

我编写了自定义函数绘制图表：图表左侧展示问题文本，右侧呈现积极（happy）、中性（neutral）、消极（unhappy）反馈的占比，使用purrr包的map()函数批量生成单图。但由于不同问题文本长度存在差异，即便使用str_wrap()优化换行，生成的条形图仍无法整齐对齐。

请问ggplot中是否支持设置类似「横轴标签占绘图空间20%、绘图区占80%」的规则，让所有条形图对齐？同时需保留单独提取任意单图的能力。

示例代码 #

library(tidyverse)

# 示例数据
my_data <- tibble(
  happiness = c("happy", "neutral", "unhappy", "happy", "neutral", "unhappy"),
  percent = c(90, 5, 5, 40, 35, 25),
  question = c(rep("How happy are you with your team, manager, department, and leadership at the company?", 3),  
               rep("How happy are you with your pay?", 3)),
  n = c(180, 10, 10, 80, 70, 50)
) %>%
  arrange(desc(happiness), desc(percent), question)

# 自定义绘图函数
make_plot <- function(data){
  data %>%
    ggplot(aes(x = question, y = percent, fill = happiness)) +
    geom_col() +
    coord_flip() +
    theme_minimal()  +
    theme(
      axis.title = element_blank(),
    ) +
    xlab(paste0(str_wrap(data$question[1], 35))) +
    guides(fill="none")
}

# 批量生成图表
my_questions <- unique(my_data$question)
plots <- map(my_questions,
             ~make_plot(
               my_data %>%
                 filter(question == .x)
             ))

# 提取单图
p1 <- plots[[1]]
p1
p2 <- plots[[2]]
p2

图表说明 #

两张图表分别对应长问题和短问题：长问题的标签区域宽度更大，导致右侧条形图起始位置偏右；短问题标签区域较窄，条形图起始位置偏左，整体无法对齐。

可以通过ggplot2结合grid包调整绘图布局，固定标签区域与绘图区的宽度比例，同时保留单独提取单图的能力。以下是两种可行方法：

方法一：固定标签区宽度比例（核心方案） #

修改自定义绘图函数，将生成的ggplot对象转换为grob（图形对象），然后调整布局中标签区与绘图区的宽度分配：

library(tidyverse)
library(grid)

make_plot <- function(data, label_width_ratio = 0.2){
  # 生成基础图表
  p <- data %>%
    ggplot(aes(x = question, y = percent, fill = happiness)) +
    geom_col() +
    coord_flip() +
    theme_minimal() +
    theme(
      axis.title = element_blank(),
      axis.text.y = element_text(hjust = 1)  # 标签右对齐，增强整齐度
    ) +
    xlab(str_wrap(data$question[1], 35)) +
    guides(fill="none")
  
  # 转换为grob并调整布局
  g <- ggplotGrob(p)
  # 定位y轴标签区域（翻转后问题文本在y轴）
  label_panel_idx <- which(g$layout$name == "axis-l")
  # 定位绘图面板区域
  main_panel_idx <- which(g$layout$name == "panel")
  
  # 设置宽度比例：标签区占20%，绘图区占80%
  g$widths[label_panel_idx] <- unit(label_width_ratio, "npc")
  g$widths[main_panel_idx] <- unit(1 - label_width_ratio, "npc")
  
  return(g)
}

# 批量生成带固定布局的图表
plots <- map(my_questions, ~make_plot(my_data %>% filter(question == .x)))

# 提取单图并绘制
grid.draw(plots[[1]])  # 长问题图表
grid.draw(plots[[2]])  # 短问题图表

方法二：用patchwork组合对齐（兼顾批量查看与单图提取） #

如果需要同时查看所有对齐后的图表，又要保留单图独立性，可以将生成的grob转换为patchwork兼容对象，再组合展示：

library(patchwork)

# 将grob转换为patchwork元素
plots_patch <- map(plots, ~wrap_elements(.x))

# 垂直组合所有图表（自动对齐）
plots_patch[[1]] / plots_patch[[2]]

# 仍可单独提取单图绘制
grid.draw(plots[[1]])

关键说明 #

• unit(label_width_ratio, "npc")中的npc是标准化父坐标，取值0-1，0.2即表示标签区占总绘图空间的20%。
• 设置axis.text.y = element_text(hjust = 1)让问题文本右对齐，能避免因文本长度不同导致的视觉偏移。
• 若需要将grob转回ggplot对象，可使用egg::grob_to_ggplot()函数（需先安装egg包）。

内容的提问来源于stack exchange，提问作者J.Sabree