2列のビーマー/スウィーブスライドグリッドグラフィック

Question

私はビーマー+スウィーブを使ってggplot2グラフィックスのプレゼンテーションをしようとしています。スライドには2つの列が必要です。左のコードはコード、右はコードです。ここで私が試したのは、

\documentclass[xcolor=dvipsnames]{beamer} 
\usepackage{/Library/Frameworks/R.framework/Resources/share/texmf/tex/latex/Sweave} 
\usepackage[english]{babel} 
\usepackage{tikz} 
\usepackage{amsmath,amssymb}% AMS standards 
\usepackage{listings} 
\usetheme{Madrid} 
\usecolortheme{dove} 
\usecolortheme{rose} 
\SweaveOpts{pdf=TRUE, echo=FALSE, fig=FALSE, eps=FALSE, tidy=T, width=4, height=4} 

\title{Reproducible data analysis with \texttt{ggplot2} \& \texttt{R}} 
\subtitle{subtitle} 
\author{Baptiste Augui\'e} 
\date{\today} 
\institute{Here} 

\begin{document} 

\begin{frame}[fragile] 
    \frametitle{Some text to show the space taken by the title} 
\begin{columns}[t] \column{0.5\textwidth} 
    Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit augue duis dolore te feugait nulla facilisi. 
\column{0.5\textwidth} 
\begin{figure}[!ht] 
\centering 
<<fig=TRUE>>= 
grid.rect(gp=gpar(fill="slateblue")) 
@ 
\end{figure} 
\end{columns} 
\end{frame} 

\begin{frame}[fragile] 
    \frametitle{Some text to show the space taken by the title} 
\begin{columns}[t] 
    \column{0.5\textwidth} 
<<echo=TRUE,fig=FALSE>>= 
library(ggplot2) 
p <- 
qplot(mpg, wt, data=mtcars, colour=cyl) + 
    theme_grey(base_family="Helvetica") 
@ 
\column{0.5\textwidth} 
\begin{figure}[!ht] 
\centering 
<<fig=TRUE>>= 
print(p) 
@ 
\end{figure} 
\end{columns} 
\end{frame} 

\end{document} 

出力の2ページです。

私は、この出力には2つの問題があります：エコーエドはSweaveコードが列環境を無視して、2列

またがる

• をいずれかのグラフィックの列余白が不必要に広い

ありがとうございました。

Answer 1

• 最初の質問については、SweaveOptsにkeep.source=TRUEを設定するのが簡単な方法です。より詳細な制御については、fancyvrbとSweaveマニュアルのFAQ＃9を参照してください。
• 数字の幅は、ここで\setkeys{Gin}{width=1.0\textwidth}

によって設定することができますが若干の修正です：

... snip ... 

\SweaveOpts{pdf=TRUE, echo=FALSE, fig=FALSE, eps=FALSE, tidy=T, width=4, height=4, keep.source=TRUE} 

\title{Reproducible data analysis with \texttt{ggplot2} \& \texttt{R}} 

... snip ... 


\begin{document} 
\setkeys{Gin}{width=1.1\textwidth} 

... snip... 

<<echo=TRUE,fig=FALSE>>= 
library(ggplot2) 
p <- 
    qplot(mpg, 
     wt, 
     data=mtcars, 
     colour=cyl) + 
    theme_grey(base_family= 
      "Helvetica") 
@