Question

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

换句话说，在for循环内生成LaTeX元素。对于每一行，Sweave都会建立一个表格。

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

Answer 1

这有用吗：

\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}

如果这是正确的轨道，很高兴了解更多细节！

Answer 2

这是一种较短的方法。我在mtcars中使用R数据集，并将说明如何按柱面数创建表。您可以使用Sweave或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}

动态Sweave文档

2 个答案: