Как программно включить несколько таблиц в документ Sweave с помощью R - PullRequest
Новая
       29

Как программно включить несколько таблиц в документ Sweave с помощью R

6 голосов
/ 28 апреля 2010

Я хочу иметь сводный документ, который будет включать переменное число таблиц. Я думал, что приведенный ниже пример будет работать, но это не так. Я хочу перебрать список foo и распечатать каждый элемент как отдельную таблицу. 

% 
\documentclass[a4paper]{article}
\usepackage[OT1]{fontenc}
\usepackage{longtable}
\usepackage{geometry}
\usepackage{Sweave}
\geometry{left=1.25in, right=1.25in, top=1in, bottom=1in}
\listfiles
\begin{document}

<<label=start, echo=FALSE, include=FALSE>>=
startt<-proc.time()[3]
library(RODBC)
library(psych)
library(xtable)
library(plyr)
library(ggplot2)
options(width=80)

#Produce some example data, here I'm creating some dummy dataframes and putting them in a list
foo<-list()
foo[[1]]<-data.frame(GRP=c(rep("AA",10), rep("Aa",10), rep("aa",10)), X1=rnorm(30), X2=rnorm(30,5,2))
foo[[2]]<-data.frame(GRP=c(rep("BB",10), rep("bB",10), rep("BB",10)), X1=rnorm(30), X2=rnorm(30,5,2))
foo[[3]]<-data.frame(GRP=c(rep("CC",12), rep("cc",18)), X1=rnorm(30), X2=rnorm(30,5,2))
foo[[4]]<-data.frame(GRP=c(rep("DD",10), rep("Dd",10), rep("dd",10)), X1=rnorm(30), X2=rnorm(30,5,2))
@ 

\title{Docuemnt to test putting a variable number of tables into a sweave Document}
\author{"Paul Hurley"}
\maketitle

\section{Text}

This document was created on \today, with \Sexpr{print(version$version.string)} running
 on a \Sexpr{print(version$platform)} platform. It took approx \input{time} sec to process.

<<label=test, echo=FALSE, results=tex>>= 
cat("Foo")
@ 
that was a test, so is this
<<label=table1test, echo=FALSE, results=tex>>=
print(xtable(foo[[1]]))
@ 
\newpage

\subsection{Tables}

<<label=Tables, echo=FALSE, results=tex>>=
for(i in seq(foo)){
    cat("\n")
    cat(paste("Table_",i,sep=""))
    cat("\n")
    print(xtable(foo[[i]]))
    cat("\n")
    }
#cat("<<label=endofTables>>= ")
@ 


<<label=bye, include=FALSE, echo=FALSE>>= 
endt<-proc.time()[3]
elapsedtime<-as.numeric(endt-startt)
@ 
<<label=elapsed, include=FALSE, echo=FALSE>>=
fileConn<-file("time.tex", "wt") 
writeLines(as.character(elapsedtime), fileConn) 
close(fileConn) 
@ 

\end{document}

Здесь блок table1test работает должным образом и создает таблицу на основе кадра данных в foo [[1]], однако цикл создает только таблицу (подчеркивание) 1 ....

1 Ответ

6 голосов
/ 28 апреля 2010

Это вызвано подчеркиванием в этом утверждении: 

cat(paste("Table_",i,sep=""))

Если вы измените его на 

cat(paste("Table ",i,sep=""))

Или 

cat(paste("Table\\textunderscore",i,sep=""))

Это работает. Вы хотели эти номера в качестве подписки?

...