R Notebook渲染PDF时，如何调整动态生成输出的字体大小？

刚好之前帮同事解决过类似的需求，分享几个专门针对R Notebook转PDF时缩小动态生成内容字体的实用方案，都是亲测有效的：

1. 全局统一缩小所有动态输出字体 #

如果希望所有代码运行后的输出（包括文本、表格）都统一缩小字体，可以在Notebook开头的setup代码块里设置knitr的钩子函数：

knitr::opts_chunk$set(results = "asis")
knitr::knit_hooks$set(output = function(x, options) {
  # 用\\tiny可以把字体缩到最小，也可以换成\\small或\\footnotesize
  paste0("\\tiny\n", x, "\n\\normalsize")
})

• 原理：通过钩子函数捕获每个chunk的输出内容，用LaTeX的字体大小命令包裹，results='asis'让knitr直接识别并渲染这些LaTeX命令。
• 可选字体大小：LaTeX里常用的从大到小依次是\\large、\\normalsize、\\small、\\footnotesize、\\scriptsize、\\tiny，按需替换即可。

2. 局部调整单个chunk的输出字体 #

如果只想缩小特定代码块的输出字体，不用全局设置，可以给目标chunk单独加配置：

```{r, results='asis'}
# 先输出LaTeX字体命令
cat("\\footnotesize\n")
# 这里放你的动态生成代码，比如打印数据框
print(mtcars[1:5, 1:3])
# 恢复默认字体大小
cat("\\normalsize\n")

或者更简洁的方式，用chunk的钩子参数：
```r
```{r, output.hook=function(x) paste0("\\small\n", x, "\n\\normalsize")}
print(mtcars[1:5, 1:3])

## 3. 自定义LaTeX模板实现全局样式控制
如果需要更彻底的样式定制（比如连代码块背景、输出块的边距一起调整），可以修改pandoc的LaTeX模板：
1. 先导出默认的pandoc LaTeX模板到本地：
```bash
pandoc -D latex > my_custom_template.tex

2. 打开my_custom_template.tex，找到处理输出内容的环境（比如\begin{Shaded}或者\begin{verbatim}相关的块），在环境内部添加字体大小命令，比如：

\begin{Shaded}
\tiny  # 在这里添加字体大小命令
$output$
\end{Shaded}

3. 在R Notebook的YAML头部指定使用这个模板：

---
title: "My Notebook"
output:
  pdf_document:
    template: my_custom_template.tex
---

4. 针对表格输出的精准调整 #

如果动态输出主要是表格，用kable或kableExtra包时可以直接设置表格字体大小，更精准：

library(kableExtra)
kable(mtcars[1:5, 1:3]) %>%
  kable_styling(font_size = 8)  # 设置字体大小为8pt

这些方案都不需要依赖HTML输出，完全针对PDF生成场景，你可以根据自己的需求选择最合适的方式~

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