如何在R Markdown+Bookdown生成的Word文档中设置图标题在图上方

bookdown默认生成的Word文档会把图片标题放在下方，要改成上方，只需关闭自动图注，手动将标题放在图片代码块前即可，具体代码修改如下：

基础实现（手动编号） #

---
output: 
  bookdown::word_document2:
    fig_caption: no  # 关闭自动生成图注
---

```{r setup, echo=FALSE}
options(tidyverse.quiet = TRUE)
options(message = FALSE)
library(tidyverse, warn.conflicts = FALSE)
df <- tibble(x = seq(20), y = seq(20))

图1: My caption bla bla.

ggplot(data = df, aes(x = x, y = y)) +
    geom_line()

## 自动编号（借助bookdown交叉引用）
如果需要自动管理图的编号，可结合`bookdown`的交叉引用功能：

```yaml
---
output: 
  bookdown::word_document2:
    fig_caption: no
---

```{r setup, echo=FALSE}
options(tidyverse.quiet = TRUE)
options(message = FALSE)
library(tidyverse, warn.conflicts = FALSE)
library(bookdown)  # 加载bookdown用于交叉引用
df <- tibble(x = seq(20), y = seq(20))

r fig_ref("spending", "My caption bla bla.")

ggplot(data = df, aes(x = x, y = y)) +
    geom_line()

核心逻辑：关闭自动图注后，不再由系统生成图片下方的标题，转而手动在图片代码块前插入标题文本，即可实现标题在图片上方的效果。

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