如何在R Markdown报告开头添加Logo？现有代码报错求助

1. 修正R Markdown文件（cylinder.Rmd） #

原文件核心问题是YAML元数据块内不能嵌入R代码块，必须将Logo渲染代码移至YAML之外。针对pdf_document输出，调整后可实现Logo居上、标题等信息紧随其后的效果，同时添加数据表格展示逻辑：

---
title: "cylinder_report"
author: "author_name"
date: "2023-01-25"
output: pdf_document
params:
  cylinder: 0
---

```{r echo=FALSE, out.width="30%", fig.align="center"}
# 确保R_logo.png在当前工作目录，或填写完整文件路径
knitr::include_graphics("R_logo.png")

气缸数为r params$cylinder的车辆数据 #

# 筛选对应气缸数的数据集
mtcars_subset <- mtcars[mtcars$cyl == params$cylinder, ]
# 生成格式化表格
knitr::kable(mtcars_subset, caption = paste("车辆数据（气缸数：", params$cylinder, "）"))

### 关键修正点：
- 将Logo的R代码块移至YAML元数据块（`---`区间）之后，YAML仅保留报告配置信息
- 新增数据筛选与表格输出逻辑，实现对应气缸数的数据展示
- 用`knitr::kable()`生成适配PDF的美观表格

## 2. 批量渲染脚本（微调优化）
原脚本逻辑可行，仅需补充细节确保运行顺畅：

```r
library(rmarkdown)
data(mtcars)
cyls <- unique(mtcars$cyl)

for(cyl in cyls) {
  rmarkdown::render(
    input = "cylinder.Rmd",
    output_file = paste0("cylinder_report_", cyl, ".pdf"), # 显式指定PDF后缀
    params = list(cylinder = cyl)
  )
}

微调说明： #

• 移除不必要的knitr包加载（rmarkdown会自动调用所需功能）
• 给输出文件名添加.pdf后缀，避免文件类型识别混乱

3. 可选布局优化（LaTeX原生控制） #

若需更精细的排版控制，可借助LaTeX命令直接调整Logo布局：

---
title: "cylinder_report"
author: "author_name"
date: "2023-01-25"
output: 
  pdf_document:
    keep_tex: true
params:
  cylinder: 0
header-includes:
  - \usepackage{graphicx}
  - \usepackage{float}
---

\begin{figure}[H]
  \centering
  \includegraphics[width=0.3\textwidth]{R_logo.png}
\end{figure}

## 气缸数为`r params$cylinder`的车辆数据
```{r echo=FALSE}
mtcars_subset <- mtcars[mtcars$cyl == params$cylinder, ]
knitr::kable(mtcars_subset, caption = paste("车辆数据（气缸数：", params$cylinder, "）"))

此方式用LaTeX原生`figure`环境控制Logo位置，灵活性更强。

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