在ggplot中使用marrangeGrob()保持字体大小比例的方法

问题背景 #

开发的Shiny应用支持批量生成图表并导出为单PDF，用户可选择每页图表数量。但当每页图表数量较多（如8×8共64个）时，固定设置的字体尺寸过大，导致PDF显示效果极差。

当前绘图代码：

ggplot(data=data, aes(x=time,y=distance,color=color)) +
  geom_point(na.rm=TRUE,size=1.2)+geom_line(linewidth=.7) +
  geom_errorbar(aes(ymin=yerror-stddev,ymax=yerror+stddev),
                width=0.05,linewidth=0.1,color="black") +
  xlab("time (sec)")+
  ylab("meters (m)")+
  ggtitle(title)+
  theme_bw()+
  expand_limits(y = 0)+
  theme(legend.title = element_text(size = 5), 
        axis.text=element_text(size=8),
        legend.text = element_text(size = 4),
        plot.title = element_text(hjust=0.5,size=11),
        legend.position=c(0.87, 0.26),
        legend.background = element_rect(fill = "white",color="gray"))

导出代码：

ggsave(marrangeGrob(alluplots, nrow=input$rows, ncol=input$columns),
       width = 8.5, height = 11)

解决方案：动态适配字体及元素尺寸 #

核心思路是根据每页图表的总数（行数×列数）计算缩放比例，让字体、点线大小等元素随子图尺寸自动调整，保持视觉比例一致。

1. 计算动态缩放因子 #

在生成图表前，根据用户选择的input$rows和input$columns计算缩放比例。以每页4个图表（2×2）为基准，当子图数量增加时，按平方根反比缩小：

# 计算缩放因子，基准为2×2布局（4个图）缩放比例1
total_plots_per_page <- input$rows * input$columns
scale_factor <- 1 / sqrt(total_plots_per_page) * 2

注：可根据实际视觉效果调整基准和系数，比如把*2改成*1.8来微调整体大小

2. 修改绘图代码，应用动态缩放 #

将所有固定尺寸的参数（字体、点、线、误差条宽度等）乘以缩放因子：

ggplot(data=data, aes(x=time,y=distance,color=color)) +
  geom_point(na.rm=TRUE, size=1.2 * scale_factor) +
  geom_line(linewidth=.7 * scale_factor) +
  geom_errorbar(aes(ymin=yerror-stddev, ymax=yerror+stddev),
                width=0.05 * scale_factor, linewidth=0.1 * scale_factor, color="black") +
  xlab("time (sec)")+
  ylab("meters (m)")+
  ggtitle(title)+
  theme_bw()+
  expand_limits(y = 0)+
  theme(
    legend.title = element_text(size = 5 * scale_factor), 
    axis.text = element_text(size=8 * scale_factor),
    legend.text = element_text(size = 4 * scale_factor),
    plot.title = element_text(hjust=0.5, size=11 * scale_factor),
    legend.position=c(0.87, 0.26),
    legend.background = element_rect(fill = "white", color="gray")
  )

3. 优化导出布局（可选） #

如果子图数量过多导致布局拥挤，可在marrangeGrob中设置子图的宽高比，或调整整体PDF尺寸：

ggsave(
  marrangeGrob(
    alluplots, 
    nrow=input$rows, 
    ncol=input$columns,
    layout_matrix = NULL,  # 保持自动布局
    top = NULL  # 若不需要每页标题可去掉
  ),
  width = 8.5, 
  height = 11,
  dpi = 300  # 提高PDF清晰度
)

补充说明 #

• 若需要更精细的控制，可针对不同元素设置独立的缩放系数，比如标题的缩放比例略小于其他字体，保证可读性。
• 测试不同布局（如1×1、2×2、4×4、8×8）下的显示效果，调整缩放因子的计算逻辑，找到最优适配比例。

内容的提问来源于stack exchange，提问作者Juan Pablo Rincon