如何在R Markdown PDF中实现图标题位于图片上方？

嘿，我明白你遇到的问题了——之前试过的方法没生效确实挺闹心的。下面给你几种靠谱的解决方案，适配不同的输出格式，你可以根据自己的需求选择：

1. 针对HTML输出：用CSS调整标题位置 #

如果你的输出是HTML，可以通过自定义CSS把默认在下方的标题移到图片上方。在R Markdown文档开头加入以下代码：

---
title: "图片标题在上示例"
output: html_document
---

```{css, echo=FALSE}
/* 调整图片标题位置到上方 */
.figure {
  display: flex;
  flex-direction: column;
}
.figure-caption {
  order: -1; /* 把标题放在图片前面 */
  margin-bottom: 10px; /* 给标题和图片之间加一点间距 */
  font-weight: bold; /* 可选：让标题更醒目 */
}

plot(mtcars$wt, mtcars$mpg)

这段CSS会把所有带标题的图片容器改成弹性布局，通过`order: -1`把标题移到图片前面，效果直观且能批量生效。

## 2. 针对PDF输出：用LaTeX手动控制
如果输出是PDF，因为底层依赖LaTeX编译，我们可以直接用LaTeX的`figure`环境手动安排标题位置：

```rmarkdown
---
title: "图片标题在上示例"
output: pdf_document
---

\begin{figure}[h]
\caption{这是放在图片上方的标题}
\centering
```{r, echo=FALSE}
plot(mtcars$wt, mtcars$mpg)

\end{figure}

注意要给代码块加`echo=FALSE`避免显示R代码，把LaTeX的`\caption`放在`\centering`和图片内容前面，就能让标题出现在图片上方了。

## 3. 全局设置：用knitr钩子函数统一修改
如果你想让所有图片的标题都默认在上方，可以用`knitr`的钩子函数做全局配置，同时适配HTML和PDF：

```rmarkdown
---
title: "全局设置图片标题在上"
output: html_document
---

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

# 定义钩子函数
knitr::knit_hooks$set(plot = function(x, options) {
  if (!is.null(options$fig.cap)) {
    if (knitr::is_html_output()) {
      # HTML输出的处理
      paste0('<div class="figure">',
             '<p class="figure-caption">', options$fig.cap, '</p>',
             knitr::hook_plot_md(x, options),
             '</div>')
    } else if (knitr::is_latex_output()) {
      # PDF输出的处理
      paste0('\\begin{figure}[h]\\centering',
             '\\caption{', options$fig.cap, '}',
             knitr::hook_plot_tex(x, options),
             '\\end{figure}')
    } else {
      # 其他格式默认处理
      knitr::hook_plot_md(x, options)
    }
  } else {
    knitr::hook_plot_md(x, options)
  }
})

plot(mtcars$wt, mtcars$mpg)

这个钩子函数会自动根据输出格式调整图片和标题的顺序，一次设置后所有带`fig.cap`的图片都能生效，不用每次单独配置。

你可以先对应自己的输出格式选方案试试，应该能解决之前代码无效的问题~

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