图像从 R markdown 的 beamer 输出中推出幻灯片

Question

我正在使用 R markdown v2 创建 beamer 演示文稿。我的大部分幻灯片都包含由 ggplot 生成的图像，有时在该幻灯片上方有解释性文字。我发现我真的必须单独调整每张幻灯片上每个元素（即图像、文本等）的大小，以确保图像不会被推离幻灯片的末尾。

这最终变得非常耗时，并且有点违背了 R markdown 的既定目的之一：即，作为一种快速产生可重复研究的方法。

我想知道是否有任何方法可以让各种元素智能地自动调整大小？就算不好看，至少事情不会被推到最后吧？或者，如果没有，也许人们可以使用其他方法来确保事情恰到好处，而且不会花费太多时间。

提前感谢您的想法...

Answer 1

这是一个棘手的问题，因为排版很棘手。 Rmarkdown很好的隐藏了很多棘手的细节，但是要排版还是要排版的。正如您将看到的，在 Latex 中甚至很难。有很多活动部件，例如标题和图例，渲染图像，然后将其包含在中间 .tex 文件中，因此 pandoc 可以使您的 .pdf。如果不要求大量输入（这是您首先要避免的），就不可能有完全通用的解决方案。

我不认为创建 Beamer 演示文稿本身与可重复的研究不相容，而是一种合法的输出，可能与其他报告一起。

但在开始使用 Latex 之前，您应该考虑在每张幻灯片上只放置图形而不放置文本的非常简单的解决方法。这可靠地适合幻灯片上的图像。然后，您可以使用 ggplot2 中的注释来添加额外的文本。这就是我会做的。

下面的 Rmarkdown 使用了一些复杂的嵌入式 Latex 来完成 more-or-less 你想要的。它确实将图像限制在屏幕的下半部分（但如果您了解更多关于 tikz... 的信息，这可以更改），但是随着上部文本块的增加，图像会缩放到剩余的页面大小。当然，它也会缩放你所有的图例，但你可以在 ggplot2 中调整这些图例。

---
title: "Some beamer slides with figures"
author: Somebody
date: November 06, 2015
output:
  beamer_presentation:
    keep_tex: yes
header-includes:
- \usepackage{graphicx}
- \usepackage{tikzpagenodes}
- \usetikzlibrary{calc}
- \usepackage{caption}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, fig.path="figures/beamer-example/")

library(ggplot2)
```

```{r}
mtcars$gear <- factor(mtcars$gear,levels=c(3,4,5),
   labels=c("3gears","4gears","5gears"))
mtcars$am <- factor(mtcars$am,levels=c(0,1),
   labels=c("Automatic","Manual"))
mtcars$cyl <- factor(mtcars$cyl,levels=c(4,6,8),
   labels=c("4cyl","6cyl","8cyl"))
```
## A default plot

```{r mpg-plot}
qplot(mpg, data=mtcars, geom="density", fill=gear, alpha=I(.5),
   main="Distribution of Gas Milage", xlab="Miles Per Gallon",
   ylab="Density")
```

## test

  - some text which
  - fills vertical 
  - space

\begin{tikzpicture}[overlay,remember picture]
    % Caption
    \node [anchor=south west,outer sep=0pt,inner sep=0pt,text width=\textwidth] (caption) at (current page text area.south west) {%
    };
    % Image
    \path let \p0 = (0,0), \p1 = (caption.north) in
        node [inner sep=0pt,outer sep=0pt,anchor=south] at (\x1,\y1) {%
            \pgfmathsetmacro\imgheight{\y0-\y1-\abovecaptionskip}%
            \includegraphics[height=\imgheight pt,width=\textwidth,keepaspectratio]{figures/beamer-example/mpg-plot-1}%
    };
\end{tikzpicture}

## test2

  - some text which
  - fills vertical 
  - space
  - but squashes
  - the image badly

\begin{tikzpicture}[overlay,remember picture]
    % Caption
    \node [anchor=south west,outer sep=0pt,inner sep=0pt,text width=\textwidth] (caption) at (current page text area.south west) {%
    };
    % Image
    \path let \p0 = (0,0), \p1 = (caption.north) in
        node [inner sep=0pt,outer sep=0pt,anchor=south] at (\x1,\y1) {%
            \pgfmathsetmacro\imgheight{\y0-\y1-\abovecaptionskip}%
            \includegraphics[height=\imgheight pt,width=\textwidth,keepaspectratio]{figures/beamer-example/mpg-plot-1}%
    };
\end{tikzpicture}

## test3
\begin{tikzpicture}[overlay,remember picture]
    % Caption
    \node [anchor=south west,outer sep=0pt,inner sep=0pt,text width=\textwidth] (caption) at (current page text area.south west) {%
    };
    % Image
    \path let \p0 = (0,0), \p1 = (caption.north) in
        node [inner sep=0pt,outer sep=0pt,anchor=south] at (\x1,\y1) {%
            \pgfmathsetmacro\imgheight{\y0-\y1-\abovecaptionskip}%
            \includegraphics[height=\imgheight pt,width=\textwidth,keepaspectratio]{figures/beamer-example/mpg-plot-1}%
    };
\end{tikzpicture}

您可以在以下位置阅读一些血淋淋的细节： https://tex.stackexchange.com/questions/14512/how-to-define-a-figure-size-so-that-it-consumes-the-rest-of-a-page

图像从 R markdown 的 beamer 输出中推出幻灯片

Images pushed off slides in beamer output from R markdown

r

pandoc

rstudio

knitr

r-markdown