调整knitr中代码和图形输出之间的距离答案

【问题标题】：Adjust the distance between code and figure output in knitr调整knitr中代码和图形输出之间的距离
【发布时间】：2015-03-24 18:19:33
【问题描述】：

我正在使用 knitr 编写一些关于 R 图形的幻灯片。我的 .rnw 文件中有以下代码：

\begin{frame}[fragile]

\frametitle{A Região Gráfica}

<<RegiaoGrafica01>>=
plot(0:10, 0:10)
@

\end{frame}

我的输出是

但是，我认为情节离我的代码太远了。我想把情节放在幻灯片上，而不使用类似的东西

\vspace{-10mm}

在两段代码之间（其中一段使用 eval=FALSE，另一段使用 echo=FALSE）。我搜索了 knitr 文档，但在这里找不到对我有帮助的选项。

我的最小可重现示例如下：

\documentclass[10pt, compress, usetitleprogressbar]{beamer}

\usetheme{m}

\usepackage{booktabs}
\usepackage[scale=2]{ccicons}
\usepackage{minted}
\usepackage{amssymb}
\usepackage{amsfonts}
\usepackage{amsmath}
\usepackage{amssymb}
\usepackage{amsthm}
\usepackage[portuges]{babel}
\usepackage{bm}
\usepackage{icomma}
\usepackage[retainorgcmds]{IEEEtrantools}
\usepackage{mathtools}
\usepackage{multirow}
\usepackage{natbib}
\usepackage{shadow}
\usepackage{subfigure}
\usepackage{tikz}
\usetikzlibrary{shapes.arrows}
\usepackage{verbatim}
\usepackage{xcolor}

\usepgfplotslibrary{dateplot}

\usemintedstyle{trac}

%%% Identification

\title{O Subsistema Gráfico}
\subtitle{EST0091 - Introdução ao R}
\date{26 de março de 2015}
\author{Marcus Nunes}
\institute{Universidade Federal do Rio Grande do Norte}

%%% New colors

\definecolor{mDarkBrown}{HTML}{604c38}
\definecolor{mDarkTeal}{HTML}{23373b}

\definecolor{mLightBrown}{HTML}{EB811B}
\definecolor{mMediumBrown}{HTML}{C87A2F}

\definecolor{mLightRed}{HTML}{EB331B}
\definecolor{mLightGreen}{HTML}{14B03D}
\definecolor{mLightTeal}{HTML}{137D91}

\begin{document}


% new commands

\newcommand{\R}{\mathbb{R}}
\newcommand{\Xb}{\bm{X}}
\newcommand{\Yb}{\bm{Y}}

%%%%%%%%%%%%%%%%%%%%%%

% knitr options

<<setup, include=FALSE>>=
library(knitr)
opts_chunk$set(fig.path='figure/beamer-',fig.align='center',fig.show='hold',size='footnotesize')
@

<<options, cache=FALSE, echo=FALSE, eval=TRUE, tidy=TRUE, dpi=144>>=
options(width=60)
#par(cex=2)
par(mar=c(0, 0, 0, 0))
opts_knit$set(out.format = "latex")
opts_chunk$set(prompt=TRUE, tidy.opts=list(width.cutoff=40), tidy=FALSE, fig.width=6, fig.height=4.5)
knit_theme$set("print2")
@

%%%%%%%%%%%%%%%%%%%%%%


\maketitle

%%%%%%%%%%%%%
%%% SLIDE %%%

\plain{A Região Gráfica}

%%%%%%%%%%%%%


%%%%%%%%%%%%%
%%% SLIDE %%%

\begin{frame}[fragile]

\frametitle{A Região Gráfica}

<<RegiaoGrafica01>>=
plot(0:10, 0:10)
@

\end{frame}

%%%%%%%%%%%%%

\maketitle

\end{document}

【问题讨论】：

标签： r knitr

【解决方案1】：

我无法使图更接近我的代码，但我添加了行

knit_hooks$set(small.mar = function(before, options, envir) {
    if (before) par(mar = c(14, 4, 0, 4)) 
})
opts_chunk$set(fig.path='figure/beamer-',fig.align='center',fig.show='hold',size='footnotesize', small.mar=TRUE)

根据knitr manual。因此，我的问题解决了，不是因为图形更接近命令，而是因为它的边距变小了。

【讨论】：