如何在不修改fig.height/fig.width及dpi的情况下将ggplot适配A4 Word页面？

同一个ggplot在不同fig.height/fig.width代码块配置下输出效果差异显著：Plot2中的点更密集、字体更大，Plot1则相反。需要程序化生成Plot1的视觉效果，同时将图表严格限制在A4页面边界内（不可手动在Word中调整尺寸）。调整fig.height/fig.width无法得到理想输出，且dpi必须固定为600。

原始RMD代码如下：

---
output:
  officedown::rdocx_document:
    base_format: "rmarkdown::word_document"
---

library(officedown) # 0.3.0
library(ggplot2) # 3.4.2

df <- data.frame(A = sample(1000), B = sample(1000), size = sample(1000))

ggp <- ggplot(data = df, aes(x = A, y = B, size = size)) +
  geom_point()

ggp

ggp

核心思路是固定ggplot的视觉元素参数（字体、点尺寸等），同时设置适配A4页面的输出尺寸，确保视觉效果匹配Plot1且不超出页面边界。

步骤1：定义固定主题与元素尺寸 #

通过theme()和scale_size()锁定所有视觉元素的大小，避免因输出尺寸变化导致效果偏移：

library(officedown) # 0.3.0
library(ggplot2) # 3.4.2

df <- data.frame(A = sample(1000), B = sample(1000), size = sample(1000))

# 匹配Plot1的固定主题
fixed_theme <- theme(
  text = element_text(size = 14),       # 全局文本大小
  axis.text = element_text(size = 12),  # 坐标轴文本大小
  legend.text = element_text(size = 12),# 图例文本大小
  plot.margin = margin(10, 10, 10, 10)  # 图表内部边距，单位mm
)

ggp <- ggplot(data = df, aes(x = A, y = B, size = size)) +
  geom_point() +
  fixed_theme +
  scale_size(range = c(1, 6)) # 固定点的尺寸范围，匹配Plot1的点密度

步骤2：设置A4适配的输出尺寸 #

A4页面尺寸为210mm×297mm（约8.27×11.69英寸），扣除Word默认边距（约2cm/0.79英寸）后，设置输出尺寸为：

• fig.width = 6.5（约165mm）
• fig.height = 8（约203mm）
  保持dpi=600的要求。

最终适配A4的RMD代码块：

---
output:
  officedown::rdocx_document:
    base_format: "rmarkdown::word_document"
---

ggp

原理说明 #

• 固定主题参数后，无论输出尺寸如何调整，字体、点的大小等视觉元素都保持与Plot1一致
• 计算后的fig.width/fig.height确保图表完全容纳在A4页面的可打印区域内，无需手动调整
• 保持dpi=600的要求，保证图片清晰度

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