<div dir="ltr">Olá<div><br></div><div>Fiz esta pergunta há alguns minutos no StackExchange, mas ainda não obtive resposta. (aliás, se alguém quiser ler ela no contexto original e responder por lá ou, quem sabe, vê-la identada corretamente etc, o link é <a href="http://stackoverflow.com/questions/29240036/adjust-the-distance-between-code-and-figure-output-in-knitr">http://stackoverflow.com/questions/29240036/adjust-the-distance-between-code-and-figure-output-in-knitr</a> )</div><div><br></div><div>Estou escrevendo uma série de slides sobre as funcionalidades gráficas do R. Um dos meus slides é assim:</div><div><br></div>---<br><br>\begin{frame}[fragile]<br><br>\frametitle{A Região Gráfica}<br><br><<RegiaoGrafica01>>=<br>plot(0:10, 0:10)<br>@<br><br>\end{frame}<div>---</div><div><br></div><div>O problema é que meu slide compilado fica da seguinte forma:</div><div><br></div><div><a href="http://i.stack.imgur.com/3Ozdd.jpg">http://i.stack.imgur.com/3Ozdd.jpg</a><br></div><div><br></div><div>Meu gráfico está muito distante do código. Eu gostaria de saber se existe alguma opção no knitr que diminua esta distância. Já procurei no manual e não consegui encontrar nada do gênero.</div><div><br></div><div>Segue meu CMR (i.e., meu arquivo .rnw):</div><div><br></div><div>---<br>\documentclass[10pt, compress, usetitleprogressbar]{beamer}<br><br>\usetheme{m}<br><br>\usepackage{booktabs}<br>\usepackage[scale=2]{ccicons}<br>\usepackage{minted}<br>\usepackage{amssymb}<br>\usepackage{amsfonts}<br>\usepackage{amsmath}<br>\usepackage{amssymb}<br>\usepackage{amsthm}<br>\usepackage[portuges]{babel}<br>\usepackage{bm}<br>\usepackage{icomma}<br>\usepackage[retainorgcmds]{IEEEtrantools}<br>\usepackage{mathtools}<br>\usepackage{multirow}<br>\usepackage{natbib}<br>\usepackage{shadow}<br>\usepackage{subfigure}<br>\usepackage{tikz}<br>\usetikzlibrary{shapes.arrows}<br>\usepackage{verbatim}<br>\usepackage{xcolor}<br><br>\usepgfplotslibrary{dateplot}<br><br>\usemintedstyle{trac}<br><br>%%% Identification<br><br>\title{O Subsistema Gráfico}<br>\subtitle{EST0091 - Introdução ao R}<br>\date{26 de março de 2015}<br>\author{Marcus Nunes}<br>\institute{Universidade Federal do Rio Grande do Norte}<br><br>%%% New colors<br><br>\definecolor{mDarkBrown}{HTML}{604c38}<br>\definecolor{mDarkTeal}{HTML}{23373b}<br><br>\definecolor{mLightBrown}{HTML}{EB811B}<br>\definecolor{mMediumBrown}{HTML}{C87A2F}<br><br>\definecolor{mLightRed}{HTML}{EB331B}<br>\definecolor{mLightGreen}{HTML}{14B03D}<br>\definecolor{mLightTeal}{HTML}{137D91}<br><br>\begin{document}<br><br><br>% new commands<br><br>\newcommand{\R}{\mathbb{R}}<br>\newcommand{\Xb}{\bm{X}}<br>\newcommand{\Yb}{\bm{Y}}<br><br>%%%%%%%%%%%%%%%%%%%%%%<br><br>% knitr options<br><br><<setup, include=FALSE>>=<br>library(knitr)<br>opts_chunk$set(fig.path='figure/beamer-',fig.align='center',fig.show='hold',size='footnotesize')<br>@<br><br><<options, cache=FALSE, echo=FALSE, eval=TRUE, tidy=TRUE, dpi=144>>=<br>options(width=60)<br>#par(cex=2)<br>par(mar=c(0, 0, 0, 0))<br>opts_knit$set(out.format = "latex")<br>opts_chunk$set(prompt=TRUE, tidy.opts=list(width.cutoff=40), tidy=FALSE, fig.width=6, fig.height=4.5)<br>knit_theme$set("print2")<br>@<br><br>%%%%%%%%%%%%%%%%%%%%%%<br><br><br>\maketitle<br><br>%%%%%%%%%%%%%<br>%%% SLIDE %%%<br><br>\plain{A Região Gráfica}<br><br>%%%%%%%%%%%%%<br><br><br>%%%%%%%%%%%%%<br>%%% SLIDE %%%<br><br>\begin{frame}[fragile]<br><br>\frametitle{A Região Gráfica}<br><br><<RegiaoGrafica01>>=<br>plot(0:10, 0:10)<br>@<br><br>\end{frame}<br><br>%%%%%%%%%%%%%<br><br>\maketitle<br><br>\end{document}</div><div>---</div><div><br></div><div>Obrigado,<br>-- <br><div class="gmail_signature"><div dir="ltr">Marcus Nunes<br><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a><br></div></div>
</div></div>