如何在R Markdown中自动去除ggmap绘图的上下空白（无需手动调参）

我用R Markdown生成包含ggmap绘图的HTML输出时，遇到一个问题：当绘图（尤其是分面绘图）的宽度大于高度时，HTML里的绘图上下会出现多余空白。我想无需手动调整参数或中转保存图片，就能自动去除这些空白。

之前试过手动调fig.height和fig.width，但每个绘图宽高比不一样，挨个调试太麻烦。也看到过通过获取绘图宽高比设置fig.asp的思路，还有用R函数计算比例的方法，但这些都需要先把绘图存成PNG当中间步骤，我不想这么做。

有没有办法自动调整绘图边距或者在Markdown里的嵌入方式，直接解决空白问题？

以下是可复现示例：

---
title: "Plot margins"
output: html_document
---

The following plot has some white space above and below it.

```{r, echo=FALSE, message=FALSE, cache=TRUE}
require(ggmap)
df <- data.frame(lon = c(14.04, 14.06), lat = c(53.04, 53.07), species = c("species_1", "species_2"))
cbbox <- make_bbox(lon = c(14.0, 14.2), lat = c(53.0, 53.1), f = .1)
map_data <- get_map(location = cbbox,  source = "stamen")
ggmap(map_data) +
  geom_point(data = df,
             aes(x=lon, y=lat), size=2) +
  facet_wrap(~ species, ncol=2)

The next plot does not have that large white margin.

require(ggmap)
df <- data.frame(lon = c(14.04, 14.06), lat = c(53.04, 53.07), species = c("species_1", "species_2"))
cbbox <- make_bbox(lon = c(14.0, 14.2), lat = c(53.0, 53.1), f = .1)
map_data <- get_map(location = cbbox,  source = "stamen")
ggmap(map_data) +
  geom_point(data = df,
             aes(x=lon, y=lat), size=2)

Some text below.

# 解决方案

### 方法1：调整ggplot主题压缩内部边距
直接在ggmap绘图中通过`theme()`参数压缩绘图本身的上下边距，同时移除地图不需要的坐标轴元素，从根源减少空白：
```r
ggmap(map_data) +
  geom_point(data = df, aes(x=lon, y=lat), size=2) +
  facet_wrap(~ species, ncol=2) +
  theme(
    plot.margin = margin(0, 0, 0, 0, "cm"),  # 上下左右边距设为0
    axis.text = element_blank(),             # 移除坐标轴文字
    axis.title = element_blank(),            # 移除坐标轴标题
    axis.ticks = element_blank()             # 移除坐标轴刻度
  )

这个方法直接修改绘图布局，无需额外保存步骤，对单张绘图的空白控制精准。

方法2：用knitr钩子自动匹配宽高比 #

自定义knitr钩子函数，在渲染前自动计算ggmap的宽高比并设置fig.asp参数，实现全自动化适配：

在R Markdown开头的设置代码块中添加：

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, cache = TRUE)
library(ggmap)

# 自定义plot钩子，自动设置宽高比
knitr::knit_hooks$set(plot = function(x, options) {
  # 仅处理ggplot/ggmap对象
  if(inherits(options$fig.object, c("ggplot", "ggmap"))) {
    p <- options$fig.object
    # 从绘图面板尺寸计算宽高比
    panel_dim <- ggplot2::ggplot_build(p)$layout$panel_params[[1]]
    asp_ratio <- (panel_dim$y.range[2] - panel_dim$y.range[1]) / 
                 (panel_dim$x.range[2] - panel_dim$x.range[1])
    # 自动更新fig.asp参数
    options$fig.asp <- asp_ratio
  }
  # 调用原生渲染逻辑
  knitr::hook_plot_md(x, options)
})

之后所有ggmap绘图都会自动匹配自身宽高比，HTML输出的空白会被自动压缩，无需手动调整每个绘图参数。

### 方法3：用CSS从HTML层面适配
如果不想修改R代码，可以通过自定义CSS强制图片容器按比例缩放，消除空白：

在R Markdown的YAML中添加CSS引用：
```yaml
output:
  html_document:
    css: styles.css

然后在同目录下创建styles.css文件，写入：

img {
  display: block;
  max-width: 100%;
  height: auto !important;
}

这个方法从HTML渲染层面解决问题，批量处理所有绘图的空白，适合不需要精细调整的场景。

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