knitr .Rmd -> Word 文档：控制数字的细节

Question

我正在为一本书制作解决方案手册，使用带有以下 YAML 标头的 .Rmd 文件：

---
title: "DDAR: Solutions and Hints for Exercises"
date: "`r Sys.Date()`"
output: 
  word_document:
    reference_docx: solutions-setup.docx
---

我使用reference_docx 控制文档的总体布局以获取输出 Word 文档。

会有很多图形，我想设置一些全局图形参数，以给出相对紧凑的边界框和合理的字体大小 无需根据我在 PDF 文档中看到的内容进行调整。

我尝试了以下方法，但par() 设置似乎没有任何效果：

{r setup, echo=FALSE} options(digits=4) par(mar=c(5,4,1,1)+.1)

相反，我在文档中得到如下图像，其边界框比我想要的要大，而且字体比我想要的要大得多。

我知道如何在使用 LaTeX 生成的 .Rnw 文件中控制所有这些，但我 在 .Rmd -> Word 中找不到如何操作。有没有我可以的大块钩子 采用？我认为没有 out.width 块选项可以重新缩放 LaTeX 中的图形。

Answer 1

@scoa 的回答展示了如何使用hook 在每个块的开头设置一些图形参数。这是必要的，因为“默认情况下，knitr 打开一个新的图形设备来记录绘图并在评估代码后将其关闭，因此par() 设置将被丢弃”，即不能在早期设置中设置后期块的图形参数-chunk 但需要分别为每个块设置。

如果不需要这种行为，可以使用package option global.par = TRUE：

opts_knit$set(global.par = TRUE)

找到正确的边距值有时会很痛苦。在这些情况下，hook_pdfcrop 可以提供帮助。在选项crop = TRUE 的所有块中，白色边距将被删除。要将其应用于所有块，请使用

library(knitr)
knit_hooks$set(crop = hook_pdfcrop)
opts_chunk$set(crop = TRUE)

这也适用于docx 输出，因为“当绘图格式不是 PDF（例如 PNG）时，ImageMagick 中的程序转换用于修剪白色边距”（来自?hook_pdfcrop）。

请注意，在某些情况下，裁剪图有时会产生明显不同的“缩放”图因子的副作用：这种情况发生在我们从两个图上相同大小的元素开始但其中一个图周围的白边距较大的情况下。如果在裁剪后将两者都调整为固定的输出宽度，则图上具有较大边距的元素看起来更大。但是，这与docx 输出无关，因为在这种情况下不能使用out.width/out.height。

Answer 2

knitr documentation for hooks 实际上使用小边距作为使用钩子的示例。这是一个解决方案（改编自本文档）。

---
output: word_document
---

```{r setup, echo=FALSE}
library(knitr)
knit_hooks$set(small.mar = function(before, options, envir) {
    if (before)    par(mar=c(5,4,1,1)+.1)  # smaller margin on top and right
})
opts_chunk$set(small.mar=TRUE)
```

```{r}
plot(iris$Sepal.Length)
```

使用opts_chunk$set(small.mar=TRUE) 是一种避免将其传递给文档中每个块的方法。

边距看起来是固定的（来自 libreoffice 中的 docx 输出的屏幕截图，默认参考 docx）。