knitr - Как выровнять код и график рядом

Есть ли простой способ (например, с помощью параметра чанка) получить исходный код чанка и график, который он создает рядом, как на стр. 8 (среди прочих)этот документ?

Я пытался с помощьюout.width="0.5\\textwidth", fig.align='right', что заставляет график правильно занимать только половину страницы и выравниваться вправо, но поверх него отображается исходный код, что является нормальным поведением. Я хотел бы иметь это на левой стороне сюжета.

Спасибо

Образец кода:

<<someplot, out.width="0.5\\textwidth", fig.align='right'>>=
plot(1:10)
@
 baptiste14 июн. 2012 г., 22:41
в стандартном латексном документе я бы использовалminipage вместо
 Gavin Simpson14 июн. 2012 г., 12:37
Эта презентация, скорее всего, была составлена вместе с проектором с использованием\columns{} среда. Вы пробуете то же самое с beamer в LaTeX или рендерингом через другой движок (обычный LaTeX и т. Д.)?
 Yihui Xie15 июн. 2012 г., 17:37
@baptiste Я думаю, что вы можете использовать ссылку выше в качестве ответа на этот вопрос.
 Renaud27 июл. 2012 г., 16:02
Я только видел эти ответы сейчас ... Спасибо! Yihui есть шанс получить эту функцию встроенной? Смогу ли я реализовать это с помощью крючка? Я так понимаю, поскольку, как я понял, в knitr все реализовано как хук, даже встроенные функции :)
 baptiste14 июн. 2012 г., 21:17
@GavinSimpson правильно,I used \columns

Ответы на вопрос(3)

из пакета PerformanceAnalytics или gplots.

(Небольшой) недостаток: насколько мне известно, подсветка синтаксиса невозможна.

Образец кода:

```{r fig.width=8, fig.height=5, fig.keep = 'last', echo=FALSE}
suppressMessages(library(PerformanceAnalytics))
layout(t(1:2))
textplot('plot(1:10)')
plot(1:10)
```

for beamer presentations, I'd go for \begin{columns} ... \end{columns} as well. If it is only one such plot: Minipages Here I used a table (column code and column result). (This example is "normal" Sweave)

Для всех трех вариантов чанка будет иметьinclude = FALSEи сюжет будет «вручную» быть помещенным в правильное место\includegraphics[]{}.

 14 авг. 2013 г., 21:36
Я второй этот подход.

На стороне LaTeX,adjustbox package дает вам отличный контроль над выравниванием бок о бок, как хорошо продемонстрированов этом превосходном ответе на tex.stackexchange.com. Таким образом, моя общая стратегия заключалась в том, чтобы обернуть отформатированный, приведенный в порядок, раскрашенный вывод указанного фрагмента R с кодом LaTeX, который: (1) помещает его в среду Adjustbox; и (2) включает графический вывод блока в другой среде Adjustbox справа от него. Для этого мне нужно было заменитьknitrвыходной хук по умолчанию с настроенным, определенным в разделе(2) документа<<setup>>= Кусок.

Раздел(1) из<<setup>>= определяет хук чанка, который можно использовать для временной установки любой из глобальных опций R (и, в частности, здесь,options("width")) на основе чанка.Посмотреть здесь для вопроса и ответа, которые относятся только к этой части этой установки.

Наконец, раздел(3) определяет knitr «шаблон», набор из нескольких опций, которые должны быть установлены каждый раз, когда должны создаваться бок о бок кодовый блок и рисунок. После определения, он позволяет пользователю запускать все необходимые действия, просто набравopts.label="codefig" в заголовке чанка.

\documentclass{article}

\usepackage{adjustbox}            %% to align tops of minipages
\usepackage[margin=1in]{geometry} %% a bit more text per line

\begin{document}

<<setup, include=FALSE, cache=FALSE>>=
## These two settings control text width in codefig vs. usual code blocks
partWidth <- 45
fullWidth <- 80
options(width = fullWidth)

##  (1) CHUNK HOOK FUNCTION
##   First, to set R's textual output width on a per-chunk basis, we
## need to define a hook function which temporarily resets global R's
## option() settings, just for the current chunk
knit_hooks$set(r.opts=local({
    ropts <- NA
    function(before, options, envir) {
        if (before) {
            ropts <<- options(options$r.opts)
        } else {
            options(ropts)
        }
    }
}))

## (2) OUTPUT HOOK FUNCTION

##   Define a custom output hook function. This function processes _all_
## evaluated chunks, but will return the same output as the usual one,
## UNLESS a 'codefig' argument appeared in the chunk's header.  In that
## case, wrap the usual textual output in LaTeX code placing it in a
## narrower adjustbox environment and setting the graphics that it
## produced in another box beside it.

defaultChunkHook <- environment(knit_hooks[["get"]])$defaults$chunk

codefigChunkHook <- function (x, options) {
        main <- defaultChunkHook(x, options)
        before <-
            "\\vspace{1em}\n
             \\adjustbox{valign=t}{\n
             \\begin{minipage}{.59\\linewidth}\n"
        after <-
            paste("\\end{minipage}}
                   \\hfill
                   \\adjustbox{valign=t}{",
                   paste0("\\includegraphics[width=.4\\linewidth]{figure/",
                           options[["label"]], "-1.pdf}}"), sep="\n")
    ## Was a codefig option supplied in chunk header?
    ## If so, wrap code block and graphical output with needed LaTeX code.
    if (!is.null(options$codefig)) {
      return(sprintf("%s %s %s", before, main, after))
    } else {
      return(main)
    }
}

knit_hooks[["set"]](chunk = codefigChunkHook)


## (3) TEMPLATE
##   codefig=TRUE is just one of several options needed for the
## side-by-side code block and a figure to come out right. Rather
## than typing out each of them in every single chunk header, we
## define a _template_ which bundles them all together. Then we can
## set all of those options simply by typing opts.label="codefig".

opts_template[["set"]](
codefig = list(codefig=TRUE, fig.show = "hide",
               r.opts = list(width=partWidth),
               tidy = TRUE,
               tidy.opts = list(width.cutoff = partWidth)))
@

A chunk without \texttt{opts.label="codefig"} set...
<<A>>=
1:60
@

\texttt{opts.label="codefig"} \emph{is} set for this one

<<B, opts.label="codefig", fig.width=8, cache=FALSE>>=
library(raster)
library(RColorBrewer)

## Create a factor raster with a nice RAT (Rast. Attr. Table)
r <- raster(matrix(sample(1:10, 100, replace=TRUE), ncol=10, nrow=10))
r <- as.factor(r)
rat <- levels(r)[[1]]
rat[["landcover"]] <- as.character(1:10)
levels(r) <- rat

## To get a nice grid...
p <- as(r, "SpatialPolygonsDataFrame")

## Plot it
plot(r, col = brewer.pal("Set3", n=10),
     legend = FALSE, axes = FALSE, box = FALSE)
plot(p, add = TRUE)
text(p, label =  getValues(r))
@

\texttt{opts.label="codefig"} not set, and all settings back to ``normal''.
<<C>>=
lm(mpg ~ cyl + disp + hp + wt + gear, data=mtcars)
@


\end{document}

enter image description here

 30 апр. 2014 г., 22:02
Достаточно долго, честно говоря :-) +1

Ваш ответ на вопрос