R 动态swave文档

是否可以通过Swave生成没有预定义元素数量的LaTeX文档？我的意思是，假设我需要为数据帧中的每一行构建一个表。文档中的表数取决于数据框中的行数

换句话说，在

for

循环中生成LaTeX元素。对于每一行，Swave将构建一个表

这同样适用于页面或其他元素。可以这样做吗？

这有帮助吗：

\documentclass[a4paper,12pt]{article}
\usepackage{Sweave}

\begin{document}

<<echo=FALSE>>=
library( xtable )
df <- structure(list(ID = 2:6, home_pc = structure(c(2L, 6L, 1L, 3L,
5L), .Label = c("BY5 8IB", "CB4 2DT", "DH4 6PB", "KN4 5GH", "MP9 7GH",
"NE5 7TH", "VB2 4RF"), class = "factor"), start_pc = structure(c(4L,
3L, 4L, 2L, 1L), .Label = c("BV6 5PB", "CB3 5TH", "FC5 7YH",
"Home", "NA"), class = "factor"), end_pc = structure(c(1L, 3L,
3L, 3L, 2L), .Label = c("CB5 4FG", "GH6 8HG", "Home", "NA"), class = "factor")), .Names = c("ID",
"home_pc", "start_pc", "end_pc"), row.names = 2:6, class = "data.frame")
count = 1
end = 3
@

<<fun,echo=FALSE,eval=FALSE>>=
print( xtable( df ) )
@


<<echo=FALSE,results=tex>>=
for( i in 1:end )
{
    print( xtable( df ) )
    i <- i + 1
}
cat( "\\newpage" )
@

<<echo=FALSE,results=tex>>=
if( count < end )
<<fun>>
count = count + 1
cat( "\\newpage" )
@

<<echo=FALSE,results=tex>>=
if( count < end )
<<fun>>
count = count + 1
cat( "\\newpage" )
@

<<echo=FALSE,results=tex>>=
if( count < end )
<<fun>>
count = count + 1
cat( "\\newpage" )
@

\end{document}

\documentclass[a4paper，12pt]{article}
\usepackage{swave}
\开始{document}
=
图书馆（xtable）
df这里有一个简短的方法来做同样的事情。我正在使用
R
中的
mtcars
数据集，并将说明如何按气缸数创建表格。您可以使用
swave
或
knitr
处理此文档（这是块上的新成员）。让我知道它是如何工作的

\documentclass{article}
%\SweaveOpts{echo = F}

\begin{document}
<<load-libraries>>=
suppressMessages(require(plyr))
suppressMessages(require(xtable))
@

<<gen-tables, results = tex>>=
d_ply(mtcars, .(cyl), xtable, .print = TRUE)
@

\end{document}

\documentclass{article}
%\SweaveOpts{echo=F}
\开始{document}
=
抑制消息（需要（plyr））
抑制消息（需要（xtable））
@
=
厚度（mtcars，.（气缸），xtable，.print=TRUE）
@
\结束{document}
编辑版，像@Ramnath一样使用mtcars（比我手工制作的东西好得多）。我已经尝试演示了更长的方法所带来的灵活性。在“是”中介绍了使用
brew
的一个很好的教程，我相信最好的方法是使用brew生成tex文件。这样，我可以使用for、if和其他控制结构动态生成tex文件。