двухколонный проектор / поворотный слайд с сеткой - PullRequest
Новая
       25

двухколонный проектор / поворотный слайд с сеткой

15 голосов
/ 06 августа 2011

Я пытаюсь сделать презентацию на графике ggplot2, используя beamer + sweave.Некоторые слайды должны иметь две колонки;левый для кода, правый для результирующего рисунка.Вот что я попробовал: 

\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}

И две страницы вывода.

first page

second page

У меня две проблемы сэти выходные данные:

  • эхо-код свипа игнорирует среду столбцов и охватывает два столбца

  • поля столбцов для любого графического изображения излишнеширокий

Есть идеи?

Спасибо.

1 Ответ

12 голосов
/ 06 августа 2011
  • Что касается первого вопроса, самый простой способ - установить keep.source=TRUE в SweaveOpts.Для более необычного управления см. fancyvrb и FAQ № 9 руководства Sweave.
  • Ширина рисунка может быть установлена ​​с помощью \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")
@

enter image description here

...