如何调整ggplot绘图边距与宽度，避免数据显示拥挤？

针对你遇到的分面图拥挤、数据显示不全的问题，给你几个实用的调整方向：

• 指定分面布局，合理分配空间
  在facet_wrap里通过nrow/ncol手动设置行数和列数，避免默认布局自动挤压子图。比如如果你的CYR是年份类的分面变量，假设是8个分组，可以设ncol=4，让每行4个子图，每个子图有足够宽度：

  facet_wrap(~ CYR, ncol = 4, scales = "fixed")
  

  其中scales="fixed"（默认）能保持所有子图的坐标范围一致，减少空间浪费；如果需要每个子图自适应坐标范围可以用scales="free"，但可能会让布局更挤，按需选择。

• 精简主题元素，压缩冗余空间
  调整轴文字、标签的大小，缩小子图间的空白间距，比如：

  theme(
    legend.position = 'top',
    axis.text = element_text(size = 8),  # 缩小轴文字尺寸
    axis.title = element_text(size = 10), # 缩小轴标题尺寸
    panel.spacing = unit(0.3, "cm"),      # 调整子图之间的间距
    axis.text.x = element_text(angle = 45, hjust = 1) # 旋转x轴文字避免重叠
  )
  

• 匹配png宽高比与分面布局
  仅调整宽度不够，要根据分面的行列数调整png的宽高比例。比如如果是4列2行的分面布局，把png的宽度设大一些，高度对应调整：

  png("file_name.png", units = "in", width = 14, height = 7, res = 300)
  

• 调整坐标投影的宽高比
  coord_quickmap会自动设置地理数据的宽高比（asp = 1/cos(lat)），如果你的数据集中在某个纬度带，也可以手动指定合适的比例，让子图更舒展：

  coord_quickmap(asp = 1.2) # 按需调整数值，比如在1.0~1.5之间测试
  

修改后的完整代码示例 #

png("file_name.png", units = "in", width = 14, height = 7, res = 300)

ggplot(pred, aes(x = Longitude, y = Latitude)) +
  geom_raster(aes(fill = Fitted)) + 
  facet_wrap(~ CYR, ncol = 4, scales = "fixed") + # 指定分面列数
  scale_fill_viridis(option = 'plasma', na.value = 'transparent') +
  coord_quickmap(asp = 1.2) + # 调整地理投影宽高比
  theme(
    legend.position = 'top',
    axis.text = element_text(size = 8),
    axis.title = element_text(size = 10),
    panel.spacing = unit(0.3, "cm"),
    axis.text.x = element_text(angle = 45, hjust = 1)
  )

dev.off()

你可以根据实际的分面数量调整ncol、png的宽高以及asp的数值，多测试几次就能找到合适的参数。

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