如何在R Markdown生成的PDF文档标题上方添加表格

下面提供两种可行的实现方法，按需选择：

方法一：手动控制标题与表格（简单直观） #

这种方法通过清空YAML中的自动标题，手动编写标题内容，从而自由控制表格的位置，适合快速实现需求。

示例代码（LaTeX静态表格） #

---
title: "" # 关闭自动生成标题
output: pdf_document
date: '2023-01-03'
header-includes:
  - \usepackage{booktabs} # 可选，用于美化表格样式
---

\begin{center}
\begin{tabular}{ |c|c|c| } 
 \hline
 cell1 & cell2 & cell3 \\ 
 cell4 & cell5 & cell6 \\ 
 cell7 & cell8 & cell9 \\ 
 \hline
\end{tabular}
\end{center}

\begin{center}
{\Huge \bf test} \\ % 手动设置标题
{\large 2023-01-03} % 手动设置日期
\end{center}

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

R Markdown #

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)

Including Plots #

You can also embed plots, for example:

plot(pressure)

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

### 示例代码（R动态生成表格）
如果表格内容需要动态生成，可使用`knitr::kable`生成LaTeX表格：
```rmarkdown
---
title: "" # 关闭自动生成标题
output: pdf_document
date: '2023-01-03'
header-includes:
  - \usepackage{booktabs}
---

```{r top-table, echo=FALSE, results='asis'}
library(knitr)
# 构造动态表格数据
top_table <- data.frame(
  列1 = c("cell1", "cell4", "cell7"),
  列2 = c("cell2", "cell5", "cell8"),
  列3 = c("cell3", "cell6", "cell9")
)
# 生成LaTeX格式表格
kable(top_table, format = "latex", align = "c", linesep = "")

\begin{center}
{\Huge \bf test} \
{\large 2023-01-03}
\end{center}

knitr::opts_chunk$set(echo = TRUE)

...（剩余原代码内容）

## 方法二：保留自动标题，通过LaTeX命令插入表格

这种方法无需手动编写标题，利用LaTeX的`\AtBeginDocument`命令在自动生成的标题前插入表格，同时避免标题自动换页，完美复用YAML中的配置。

### 示例代码
```rmarkdown
---
title: "test"
output: pdf_document
date: '2023-01-03'
header-includes:
  - \usepackage{booktabs}
  - \AtBeginDocument{
      \begin{center}
      \begin{tabular}{ |c|c|c| } 
       \hline
       cell1 & cell2 & cell3 \\ 
       cell4 & cell5 & cell6 \\ 
       cell7 & cell8 & cell9 \\ 
       \hline
      \end{tabular}
      \end{center}
      \vspace{1em} % 调整表格与标题的间距
      \begingroup
      \let\newpage\relax % 取消标题前的自动换页
    }
  - \AtEndDocument{\endgroup} % 结束LaTeX分组
---

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

...（剩余原代码内容）

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