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

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

\begin{frame}[fragile]

\frametitle{A Região Gráfica}

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

\end{frame}

在两段代码之间（其中一段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}

\documentclass[10pt，compress，usettleprogressbar]{beamer}
\使用主题{m}
\usepackage{booktabs}
\usepackage[scale=2]{ccicons}
\usepackage{minted}
\usepackage{amssymb}
\usepackage{amsfonts}
\usepackage{amsmath}
\usepackage{amssymb}
\使用包{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}
\UseMentedStyle{trac}
%%%鉴定
\标题{O Subsistema Gráfico}
\副标题{EST0001-简介çao R}
\日期{2015年3月26日}
\作者{Marcus Nunes}
\研究所{北里奥格兰德联邦大学}
%%%新颜色
\定义颜色{mDarkBrown}{HTML}{604c38}
\定义颜色{mDarkTeal}{HTML}{23373b}
\定义颜色{mLightBrown}{HTML}{EB811B}
\定义颜色{mMediumBrown}{HTML}{C87A2F}
\定义颜色{mLightRed}{HTML}{EB331B}
\定义颜色{mLightGreen}{HTML}{14B03D}
\定义颜色{mLightTeal}{HTML}{137D91}
\开始{document}
%新命令
\纽科曼{\R}{\mathbb{R}
\纽科曼{\Xb}{\bm{X}
\纽科曼{\Yb}{\bm{Y}
%%%%%%%%%%%%%%%%%%%%%%
%knitr选项
=
图书馆（knitr）
选择块$set（图path='figure/beamer-'，图align='center'，图show='hold'，size='footnotesize'）
@
=
选项（宽度=60）
#标准杆（cex=2）
par（mar=c（0,0,0,0））
选择针织$set（out.format=“latex”）
opts_chunk$set（prompt=TRUE，tidy.opts=list（width.cutoff=40），tidy=FALSE，fig.width=6，fig.height=4.5）
针织主题$set（“print2”）
@
%%%%%%%%%%%%%%%%%%%%%%
\maketitle
%%%%%%%%%%%%%
%%%幻灯片%%
\平原{A Região Gráfica}
%%%%%%%%%%%%%
%%%%%%%%%%%%%
%%%幻灯片%%
\开始{frame}[易碎]
\框架标题{A Região Gráfica}
=
绘图（0:10，0:10）
@
\结束{帧}
%%%%%%%%%%%%%
\maketitle
\结束{document}

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

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)

据报道。因此，我的问题解决了，不是因为数字更接近命令，而是因为它的边距变小了

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)