在 knitr 中打印动态大小的绘图列表

Question

我希望能够在 knitr 中打印出未确定的地块列表。我我能够做到这一点，但还有一些皱纹需要熨平。即：

1) 你如何在每个绘图之前的每个页面上抑制列表索引（如 [[2]]）？使用 echo=FALSE 不会做任何事情。

2) 是否可以在渲染时设置 每个绘图 的大小？我尝试在块之外设置一个大小变量，但这只能让我使用一个值，而不是每个图的不同值。

我之所以提出这个问题，是因为他们似乎在讲同一课，即制作一个情节列表。

一些示例代码：

\documentclass{article}
\usepackage[margin=.5in, landscape]{geometry}
\begin{document}

<<diamond_plots, echo = FALSE, results = 'hide'>>==
library(ggplot2)

diamond_plot = function(data, cut_type){
  ggplot(data, aes(color, fill=cut)) + 
    geom_bar() +
    ggtitle(paste("Cut:", cut_type, sep = ""))
}

cuts = unique(diamonds$cut)
plots = list()
for(i in 1:length(cuts)){
    data = subset(diamonds, cut == cuts[i])
    plots[[i]] = diamond_plot(data, cuts[i])
}
height = 3
@

<<print_plots, results='asis', echo=FALSE,  fig.width=10, fig.height=height>>=
plots
@
\end{document}

绘图的 PDF 如下所示：

Answer 1

1) 你如何在每个绘图之前的每个页面上抑制列表索引（如 [[2]]）？使用 echo=FALSE 没有任何作用。

分别绘制列表中的每个元素 (lapply) 并隐藏 lapply (invisible) 的输出：

invisible(lapply(plots, print))

2) 是否可以在渲染每个绘图时设置它们的大小？我尝试在块之外设置一个大小变量，但这只让我使用一个值而不是每个图的不同值。

是的。通常，当您将向量传递给与图形相关的块选项时，i^th 元素用于 i^th 图。这适用于“特定于图形”的选项，例如fig.cap、fig.scap、out.width 和 out.height。

但是，其他图形选项是“特定于设备的”。要理解这一点，重要的是看一下optiondev：

dev：将用作图形设备来记录绘图的函数名称 [...] 选项 dev、fig.ext、fig.width、fig.height 和 dpi 可以是向量（更短那些将被回收），例如<<foo, dev=c('pdf', 'png')>>= 为同一个绘图创建两个文件：foo.pdf 和 foo.png

将向量传递给“特定于图形”选项out.height 的结果是i^th 元素被用于i^thplot，将向量传递给“设备特定”选项会导致 i^th 元素用于 i^th设备。

因此，生成动态大小的图需要对块进行一些修改，因为 一个 块无法生成具有不同 fig.height 设置的图。以下解决方案基于knitr 示例`075-knit-expand.Rnw 和this post on r-bloggers.com（其中解释了this answer on SO）。

解决方案的想法是使用块模板并使用适当的表达式扩展模板值以生成块，然后生成具有正确fig.height 设置的图。扩展的模板被传递给knit 以评估块：

\documentclass{article}
\begin{document}

<<diamond_plots, echo = FALSE, results = "asis">>==
library(ggplot2)
library(knitr)

diamond_plot = function(data, cut_type){
  ggplot(data, aes(color, fill=cut)) +
    geom_bar() +
    ggtitle(paste("Cut:", cut_type, sep = ""))
}

cuts = unique(diamonds$cut)

template <- "<<plot-cut-{{i}}, fig.height = {{height}}, echo = FALSE>>=
    data = subset(diamonds, cut == cuts[i])
    plot(diamond_plot(data, cuts[i]))
@"

for (i in seq_along(cuts)) {
  cat(knit(text = knit_expand(text = template, i = i, height = 2 * i), quiet = TRUE))
}

@

\end{document}

使用knit_expand 扩展模板，将{{}} 中的表达式替换为相应的值。

对于knit 调用，使用quite = TRUE 很重要。否则，knit 会用日志信息污染主文档。

使用cat 对于避免隐含的print 很重要，否则会破坏输出。出于同样的原因，“外部”块（diamond_plots）使用results = "asis"。

Answer 2

您需要访问各个列表元素，否则 print 将始终打印出索引。

不确定这是否是最干净的答案，但您可以循环打印它们。

> print(plots)
[[1]]

[[2]]

[[3]]

[[4]]

[[5]]

> for(x in plots){print(x)}

但我没有在 tex 中尝试过，只是在控制台中尝试。