引言

Tufte样式在Edward Tufte的书以及物理学家费曼的教科书很常见，它的一个显著特点就是边栏的使用。例如脚注和边栏注解，以及放在边栏里的小型插图。Tufte样式在LaTeX和HTML/CSS中都有实现¹。我们将这两种实现都纳入了tufte包。若需要LaTeX/PDF输出，使用输出格式tufte_handout即可，类似地，tufte_book可以用来输出PDF书，tufte_html生成HTML网页。这些输出格式可以在YAML元数据中指定，或者传给rmarkdown::render()函数。若对rmarkdown包不熟悉，可参见 Allaire et al. (2019)。

---
title: "一个Tufte样式示例"
author: "张三"
ctex: yes
output:
  tufte::tufte_handout:
    latex_engine: xelatex
  tufte::tufte_html: default
---

章节标题

Tufte样式不主张太深的章节目录，一般仅仅使用一级标题（Markdown中用一个井号#）和二级标题（两个井号）。

插图

边栏插图

插图在Tufte的书中非常常见，我们可以使用三种插图：边栏图、全宽图、主栏图。先说边栏图：使用knitr代码段选项fig.margin = TRUE即可将图形放置在边栏中，如：

library(ggplot2)
mtcars2 <- mtcars
mtcars2$am <- factor(
  mtcars$am, labels = c('automatic', 'manual')
)
ggplot(mtcars2, aes(hp, mpg, color = am)) +
  geom_point() + geom_smooth() +
  theme(legend.position = 'bottom')

Figure 1: MPG<U+4E0E>horsepower<U+4E24><U+4E2A><U+53D8><U+91CF><U+7684><U+6563><U+70B9><U+56FE>;<U+989C><U+8272><U+4EE3><U+8868><U+81EA><U+52A8><U+6321><U+6216><U+624B><U+52A8><U+6321><U+3002>

注意我们使用代码段选项fig.cap设定了图的标题。当然我们也可以设置图的长宽。

根据微积分第一基本定理我们知道，对$x \in [a, b]$有
$$\frac{d}{dx}\left( \int_{a}^{x} f(u)\,du\right)=f(x).$$

全宽插图

代码段选项fig.fullwidth = TRUE可以使得一幅图占用全部页宽，例如：

ggplot(diamonds, aes(carat, price)) + geom_smooth() +
  facet_grid(~ cut)

Figure 2: <U+4E00><U+5E45><U+5168><U+5BBD><U+56FE><U+5F62><U+3002>

其它和图形有关的代码段选项仍然可以使用，一般情况下，全宽图形的fig.width选项会较大，而fig.height相对较小。上图的尺寸是\(10 \times 2\)英寸.

主栏插图

默认情况下，R代码段生成的图形放置在主栏里，其标题放在边栏中，例如：

ggplot(diamonds, aes(cut, price)) + geom_boxplot()

Figure 3: <U+4E00><U+5E45><U+4E3B><U+680F><U+63D2><U+56FE><U+3002>

边栏附注

Tufte样式的文档中，脚注会被自动转换为边栏附注²。脚注是带编号的，另一种边栏附注是不带编号的，这种附注需要用tufte包中的R函数margin_note()在knitr行内代码中生成。⊕<U+8FD9><U+662F><U+4E00><U+4E2A><U+8FB9><U+680F><U+9644><U+6CE8>,<U+5B83><U+6CA1><U+6709><U+7F16><U+53F7><U+3002>与边栏插图一样，边栏附注中我们也不建议写太复杂的内容，通常只是一句简单的文字。

参考文献

HTML输出中，参考文献默认也放在边栏中。例如这里我们可以引用(R Core Team 2019)。这个功能需要在YAML元数据中设置link-citations: yes，而且pandoc-citeproc程序的版本应该至少是0.7.2。若这两个条件不满足，参考文献会被放在文档末尾。

表格

我们可以用knitr包中的kable()函数生成简单的表格。HTML输出中表格的标题也会被放在边栏中。

knitr::kable(
  mtcars[1:6, 1:6], caption = 'mtcars数据的前几行。'
)

引文

Markdown语法使用>来生成引文，如果需要在引文下面用行内代码以及quote_footer()函数加上一句引文来源，例如：

“多亏了我的律师，要不然我现在还在牢里。两个人一起挖确实比一个人快很多啊。”

如果不用这个函数的话，引文底部的话只是一个普通段落：

“伟人论道，凡人论事，小人论酒。”

— Fran Lebowitz

响应式页面

这个包生成的HTML页面是响应式的：如果页宽小于760像素，边栏内容会自动隐藏。此时我们可以点击脚注的序号显示它，其它边栏附注则可以通过点击圆圈加号的符号显示。

结语

希望诸位喜欢R Markdown的超级简洁性，同时我们感谢Tufte-CSS和Tufte-LaTeX项目的作者们，没有他们的辛勤劳动，就没有这个tufte包。这份文档的R Markdown源文档可以在Github上找到，或者直接使用RStudio菜单File -> New File -> R Markdown -> From Template新建一个文档，或直接从R里面打开这个Rmd文件：

file.edit(
  tufte:::template_resources(
    'tufte_ctex', '..', 'skeleton', 'skeleton.Rmd'
  )
)