7

これが私のMWEコードです。

\documentclass{beamer}
\begin{document}

<<setup, include=FALSE>>=
# smaller font size for chunks
opts_chunk$set(size = 'footnotesize')
options(width=60)
@


\begin{frame}[fragile]
\frametitle{Test1}

<<boring-random>>=
y <- c(5, 7, 15, 17, 17, 19)
Trt <- gl(n = 3, k = 2, length = 3 * 2, labels = paste("Trt",
1:3, sep = ""), ordered = FALSE)
Data <- data.frame(Trt, y)
Fit1 <- aov(formula = y ~ Trt, data = Data, contrasts = list(Trt = "contr.sum"))
ANOVA1 <- anova(Fit1)
Coeffs1 <- coefficients(Fit1)
@
\end{frame}

\end{document}

ここに画像の説明を入力

R チャンク コードを Beamer フレーム内に収めるのに苦労しています。RチャンクコードをBeamerフレーム内にとどめる効率的な方法は何だろうか。ありがとう

4

1 に答える 1

5

tidy最善のアプローチは、でオプションをオフにしtidy=FALSE、手動で行を分割することです。

<<boring-random, tidy=FALSE>>=
y <- c(5, 7, 15, 17, 17, 19)
Trt <- gl(n = 3, k = 2, length = 3 * 2, labels = paste("Trt",
  1:3, sep = ""), ordered = FALSE)
Data <- data.frame(Trt, y)
Fit1 <- aov(formula = y ~ Trt, data = Data,
  contrasts = list(Trt = "contr.sum"))
ANOVA1 <- anova(Fit1)
Coeffs1 <- coefficients(Fit1)
@

これは常に機能します。もう1つの方法はwidth、options()（knitr FAQ 8）を小さく設定することです。おそらく、理想的なものを得るには、数回試す必要がありますwidth。あなたの場合、60は明らかに大きすぎます。

于 2012-11-17T06:09:54.360 に答える