如何在R（ggplot2）中调整绘图宽度与标签位置

问题1：y轴长名称导致绘图过窄、标题显示不全 #

仅设置out.width="100%"只能控制输出后的显示宽度，无法解决绘图画布本身尺寸不足的问题，可通过以下方式处理：

• 调整代码块绘图尺寸参数：在R Markdown代码块头部添加fig.width和fig.height，直接扩大绘图画布：

  # 你的ggplot绘图代码
  

• 拆分长y轴标签：手动用\n换行，或借助stringr包自动换行：

  # 手动拆分
  ggplot(...) + ylab("这是一段很长的\nY轴标签文本")
  # 自动换行
  library(stringr)
  ggplot(...) + ylab(str_wrap("超长Y轴标签内容自动换行示例", width = 15))
  

• 调整主题元素间距与尺寸：给y轴标题添加右侧间距，避免挤压，同时优化标题显示：

  ggplot(...) +
    theme(
      axis.title.y = element_text(size = 10, margin = margin(r = 15)), # 给y轴标题右侧留间距
      plot.title = element_text(size = 12, hjust = 0.5, margin = margin(b = 10)) # 标题居中并留底部间距
    )
  

问题2：条形图标签位置自适应优化 #

针对长短条形的标签位置问题，提供两种实用方案：

• 使用ggrepel包自动避让：无需手动判断条形长度，自动调整标签位置避免重叠：

  library(ggrepel)
  ggplot(data, aes(x = category, y = value)) +
    geom_bar(stat = "identity") +
    geom_text_repel(
      aes(label = value),
      size = 3,
      box.padding = 0.3, # 标签与条形的间距
      point.padding = 0.5
    )
  

• 手动根据条形长度切换位置：设定数值阈值，长条形标签放右侧，短条形放内部：

  ggplot(data, aes(x = category, y = value)) +
    geom_bar(stat = "identity") +
    geom_text(
      aes(label = value, hjust = ifelse(value > 40, 0, 1)), # 阈值40可根据数据调整
      position = position_stack(vjust = 0.5), # 垂直居中对齐
      size = 3
    )
  

  其中hjust=0使标签右对齐（置于条形右侧），hjust=1使标签左对齐（置于条形内部）。

内容的提问来源于stack exchange，提问作者André Santos