gpt4 book ai didi

r - 带网格图形的两列投影仪/摆动幻灯片

转载 作者:行者123 更新时间:2023-12-03 20:49:25 25 4
gpt4 key购买 nike

我正在尝试使用 beamer + sweave 对 ggplot2 图形进行演示。有些幻灯片应该有两列;左边的是代码,右边的是生成的图形。这是我尝试过的,

\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

我对这个输出有两个问题:
  • echo-ed sweave 代码忽略列环境并跨越两列
  • 任一图形的列边距过宽

  • 有任何想法吗?

    谢谢。

    最佳答案

  • 对于第一个问题,最简单的方法是设置keep.source=TRUE在 SweaveOpts 中。更多花式控制,见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")
    @

    enter image description here

    关于r - 带网格图形的两列投影仪/摆动幻灯片,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6964750/

    25 4 0
    Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
    广告合作:1813099741@qq.com 6ren.com