如何在R的ggplot2中让绘图面板与Y轴文本区域等分？

步骤1：准备示例数据 #

先构造符合李克特图要求的宽格式数据：

library(ggplot2)
library(ggstats)

set.seed(123)
likert_data <- data.frame(
  item = c(
    "这是一个非常长的Y轴标签示例文本1",
    "这是一个非常长的Y轴标签示例文本2",
    "这是一个非常长的Y轴标签示例文本3",
    "这是一个非常长的Y轴标签示例文本4"
  ),
  strongly_disagree = sample(1:10, 4),
  disagree = sample(1:10, 4),
  neutral = sample(1:10, 4),
  agree = sample(1:10, 4),
  strongly_agree = sample(1:10, 4)
)

步骤2：绘制并调整图表 #

通过ggplot2主题设置实现需求：

likert_plot <- ggplot(likert_data, aes(y = item)) +
  geom_likert(
    aes(
      strongly_disagree = strongly_disagree,
      disagree = disagree,
      neutral = neutral,
      agree = agree,
      strongly_agree = strongly_agree
    ),
    position = position_likert()
  ) +
  # 基础主题简化样式
  theme_minimal() +
  theme(
    # 移除所有网格线
    panel.grid = element_blank(),
    # 设置面板与绘图背景为完全空白
    panel.background = element_blank(),
    plot.background = element_blank(),
    # 调整Y轴文本样式：右对齐+右侧边距，避免与绘图区重叠
    axis.text.y = element_text(
      margin = margin(r = 20, unit = "pt"),
      hjust = 1,
      size = 10
    ),
    # 分配布局空间：左侧大边距留给Y轴标签，确保与绘图区各占一半
    plot.margin = margin(t = 10, r = 10, b = 10, l = 200, unit = "pt")
  )

步骤3：导出PDF #

设置合适的宽度确保布局比例，导出为PDF：

ggsave(
  "likert_plot.pdf",
  plot = likert_plot,
  width = 10,  # 总宽度，可根据标签长度微调
  height = 6,
  device = "pdf"
)

关键设置说明 #

• 空白背景与无网格：通过panel.grid = element_blank()移除所有网格线，panel.background和plot.background设为空白，实现完全干净的背景。
• 布局比例控制：利用plot.margin设置左侧大边距容纳长Y轴标签，配合axis.text.y的右对齐与边距设置，确保标签区域与绘图面板各占视图一半。导出时调整width参数，可根据实际标签长度进一步优化空间分配。

内容的提问来源于stack exchange，提问作者Homer Jay Simpson