如何使用ggsave将ggplot绘图保存为全屏尺寸？

问题根源 #

用固定宽高的ggsave()保存带ggrepel标签的散点图时，画布空间不足会导致标签、坐标轴等元素被裁切，无法完整展示。

解决方案 #

1. 基于当前全屏绘图窗口的尺寸保存 #

先将RStudio的绘图窗口拉至全屏，再获取窗口尺寸并用于保存：

library(tidyverse)
library(ggrepel)

# 绘制你的分组散点图
p <- df_rate_flat %>%
  ggplot(aes(x = 你的X变量名, y = 你的Y变量名, color = Script)) +
  geom_point() +
  geom_text_repel(aes(label = 你的标签变量名)) +
  theme_minimal()

# 获取当前全屏绘图窗口的尺寸（单位：英寸）
full_dims <- dev.size("in")

# 按全屏尺寸保存图片
ggsave("fullscreen_scatter.png", 
       plot = p, 
       width = full_dims[1], 
       height = full_dims[2], 
       dpi = 300)

2. 自动适配内容+调整边距 #

通过扩展绘图边距，让ggplot自动适配内容尺寸：

# 增加绘图边距，避免边缘元素被裁切
p <- p +
  theme(plot.margin = margin(1.5, 1.5, 1.5, 1.5, "cm"))

# 不指定宽高，让ggsave根据内容自动调整
ggsave("auto_fit_plot.png", plot = p, dpi = 300)

3. 手动设置大尺寸+优化ggrepel标签 #

如果需要固定比例（比如16:9），手动设置足够大的尺寸，同时优化ggrepel参数避免标签拥挤：

p <- df_rate_flat %>%
  ggplot(aes(x = 你的X变量名, y = 你的Y变量名, color = Script)) +
  geom_point() +
  geom_text_repel(
    aes(label = 你的标签变量名),
    box.padding = 0.6,    # 增大标签与点的间距
    point.padding = 0.4,
    max.overlaps = Inf,   # 强制显示所有标签
    size = 3.5            # 调整标签大小适配画布
  ) +
  theme_minimal()

# 按16:9全屏比例保存
ggsave("large_scatter.png", 
       plot = p, 
       width = 16, 
       height = 9, 
       units = "in", 
       dpi = 300)

注意事项 #

• RStudio中需先将绘图窗口拉至全屏，dev.size()才能获取准确的全屏尺寸。
• dpi参数可按需调整：300适合印刷，96适合网页展示。
• 若标签数量过多，可通过size缩小标签字号，或用segment.color = NA去掉连接线优化排版。

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