ニットのキャプション付きループ

Question

knitrに可変キャプションを含むテーブルやグラフィックスを簡単に作成する方法があるのだろうかと思います。私が知る唯一の方法はこれです：（簡略化https://github.com/yihui/knitr-examples/blob/master/075-knit-expand.Rnwから）。しかし、出力をsrcに集めてループの後に出力するのは難しいです。なぜなら、任意のデータセットからこのようなループを生成する関数を作成したいからです。

\documentclass{article} 
\title{Using knit\_expand() for templates} 
\author{Yihui Xie} 
\begin{document} 

\maketitle 
\tableofcontents 

<<lm-mtcars, tidy.opts=list(width.cutoff=55)>>= 
# the template 
tpl = c("\\subsection{Regression on {{xvar}}}", 
     "<<lm-{{xvar}}>>=", 
     "lm(mpg~{{xvar}}, data=mtcars)", 
     "@") 
# expand to knitr source and pass to knit() 
src = lapply(names(mtcars)[-1], function(xvar) {knit_expand(text = tpl)}) 
@ 

\Sexpr{knit(text = unlist(src))} 

\end{document} 

それでは、私が代わりに行うことができるようにしたいことは、このようなものです：私はそれに醸造を（）実行した場合生じるであろう

\documentclass{article} 
\title{Using knit\_expand() for templates} 
\author{Yihui Xie} 
\begin{document} 

\maketitle 
\tableofcontents 

<<lm, tidy.opts=list(width.cutoff=55)>>= 
    myLfFun=function(dataset){ 
... some function definition which produces say an lm for each variable in dataset ... 
} 
@ 

\Sexpr{myLfFun(Titanic} 
... 
\Sexpr{myLfFun(mtcars} 
... etc 
\end{document} 

... ...

\documentclass{article} 
\title{Brew + knitR} 
\author{Ramnath Vaidyanathan} 
\begin{document} 

\maketitle 
\tableofcontents 



<<lm-cyl >>= 
lm(mpg ~ cyl, data = mtcars) 
@ 

<<lm-disp >>= 
lm(mpg ~ disp, data = mtcars) 
@ 

<<lm-hp >>= 
lm(mpg ~ hp, data = mtcars) 
@ 

<<lm-drat >>= 
lm(mpg ~ drat, data = mtcars) 
@ 

<<lm-wt >>= 
lm(mpg ~ wt, data = mtcars) 
@ 

<<lm-qsec >>= 
lm(mpg ~ qsec, data = mtcars) 
@ 

<<lm-vs >>= 
lm(mpg ~ vs, data = mtcars) 
@ 

<<lm-am >>= 
lm(mpg ~ am, data = mtcars) 
@ 

<<lm-gear >>= 
lm(mpg ~ gear, data = mtcars) 
@ 

<<lm-carb >>= 
lm(mpg ~ carb, data = mtcars) 
@ 

((... same for Titanic database ...)) 

\end{document} 

...これの出力はknit2pdf（）でした。テンプレートがtmpl.Rnwという名前だったら、brew（ 'tmpl.Rnw'、 'doc.Rnw'）; knit2pdf（ 'doc.Rnw）を実行します。

Answer 1

良いときはなぜknit_expandが必要なのでしょうか？古いsprintfも同じことができます。出力はhttp://www.anst.uu.se/chrba104/stackoverflow/output.pdfです。

私のテンプレートもmtcarsデータセット用にカスタムメイドされていますが、柔軟性を失うことなく簡単にすることはできません。

\documentclass{article} 
\title{Not using knit\_expand() for templates} 
\author{Yihui Xie} 
\begin{document} 

\maketitle 
\tableofcontents 

<<lm-mtcars, tidy.opts=list(width.cutoff=55)>>= 
vars <- setdiff(names(mtcars), 'mpg') 
src <- sprintf(
    paste('\\subsection{Regression on %s}', 
      '<<lm-%s>>=', 
      'lm(mpg ~ %s, data=mtcars)', 
      '@', sep='\n'), 
    vars, vars, vars) 
@ 
\Sexpr{knit(text = src)} 

\end{document} 

Answer 2

私はR関数私見を用いたラテックスのコードを記述しようとしているので、あなたが求めているものを達成するためにwhiskerとbrewのような専用のテンプレートライブラリを使用することを好むことは平野醜いです。テンプレートファイルは以下に示され、tpl.Rnwという名前です。次のコマンドを実行することでpdfに変換することができます。 knitrを使用してbrewテンプレートをpdfに変換するこのロジックをカプセル化する関数を簡単に書き上げることができます。

brew('tpl.Rnw', 'doc.Rnw') 
knit2pdf('doc.Rnw')   

テンプレートファイルtpl.Rnw

\documentclass{article} 
\title{Brew + knitR} 
\author{Ramnath Vaidyanathan} 
\begin{document} 

\maketitle 
\tableofcontents 


<% for (xvar in names(mtcars)[-1]) { %> 

\subsection{Regression on <%= xvar %>} 

<<lm-<%= xvar %> >>= 
lm(mpg ~ <%= xvar %>, data = mtcars) 
@ 

<% } %> 

\end{document} 

Answer 3

私は、以前の通常のコードチャンク内\Sexpr{knit(text = unlist(src))}ラインを入れることができなかった理由が分かりました。私は、文書の最初にopts_knit$set(progress = F, verbose = F)と設定し、チャンクに対しては少なくともcomment=NA, warning=FALSE,message=FALSE,echo=FALSEのいくつかを設定する必要がありました。この単純な動きは、いつでもどこでも好きなところにknit(text = unlist(src))のような行を貼り付けることができます。これにより、専用の機能が不要になります。