Controlando o tamanho das tabelas produzidas a partir das funções R tabular() e latex()

Question

Como você está usando tableso pacote R, você deve estar usando Sweave. Aqui está um .Rnwarquivo que pode funcionar para você. Eu não tenho muita experiência com R. Eu apenas o uso para alguns cálculos estatísticos básicos. Então, sinto muito se não posso lhe dar uma resposta definitiva se você pode configurar o tamanho da tabela usando o latex()comando. Se essa fosse sua única opção, sugiro perguntar emValidação Cruzada.

Salve como foobar.Rnwe coloque-o em seu diretório de trabalho. Agora, em R, defina seu diretório de trabalho usando setwd()(se ainda não o fez). Agora, corra

Sweave("foobar.Rnw")

Se você tiver sucesso fazendo isso, você deverá ver

You can now run (pdf)latex on ‘tableprosweave.tex’

no final.

Agora, em seu diretório de trabalho, abra foobar.texcom seu editor TeX favorito e execute pdflatexou apenas execute

pdflatex foobar

em seu terminal/linha de comando.

foobar.Rnw:

\documentclass{article}

\usepackage{Sweave}
\usepackage{booktabs}

\begin{document}
\SweaveOpts{concordance=TRUE, keep.source=TRUE}
<<echo=false>>=
options(width=60)
@

<<>>=
require(tables)
require(Hmisc)

booktabs() % To use booktabs formatting

# Create sample data
Condition <- factor(rep(c("Control", "Experimental"), 150))
Time <- factor(rep(c("Baseline", "Baseline", "Three days", "Three days", 
   "Three weeks", "Three weeks"), 50))
var1 <- rnorm(300)
var2 <- rnorm(300)
var3 <- rnorm(300)
var4 <- rnorm(300)
var5 <- rnorm(300)
var6 <- rnorm(300)

# Add to data frame, sprinkle in missing values
d <- data.frame(Condition, Time, var1, var2, var3, var4, var5, var6)
d[sample(1:300, 30), c("var1", "var2", "var3", "var4")] <- NA
d[sample(1:300, 20), c("var5", "var6")] <- NA

# Create helper functions
mean.narm <- function(x) mean(x, na.rm = TRUE)
sd.narm <- function(x) sd(x, na.rm = TRUE)
count.obs <- function(x) sum(!is.na(x))
# Use tabular() from tables

tab <- tabular((Heading("Variable 1") * var1 + Heading("Variable 2") * var2 + 
   Heading("Variable 3") * var3 + Heading("Variable 4") * var4 + Heading("Variable 5") * var5 + 
   Heading("Variable 6") * var6) * Time ~ Condition * ((N=count.obs) + (Mean=mean.narm) + (SD=sd.narm)),
           data = d)
@

\newpage

% Here, \small was written just before the code chunk.

\begin{center}
\small
<<results=tex,echo=FALSE>>=
latex(
tab
)
@
\end{center}

\vfill

% Here, \scriptsize was written just before the code chunk.

\begin{center}
\scriptsize
<<results=tex,echo=FALSE>>=
latex(
tab
)
@
\end{center}

%<<>>=
%# Ensure that pdflatex is used when I call latex(), below
%options(latexcmd = "pdflatex")
%options(dviExtension = "pdf")
%options(xdvicmd = "C:/PROGRA~1/R/R-215~1.3/bin/i386/open.exe")
%# Use the latex() function
%#latex(tab, file="table1.tex")
%@

\end{document}

Comentei as últimas linhas porque realmente não sei o que elas fazem e para compilar o arquivo no meu computador. :-)Aqui está a saída da segunda página.

insira a descrição da imagem aqui

Se você realmente está logo após a saída da tabela, sugiro que você escreva \smallor \footnotesize, etc, antes do trecho de código. Novamente, não sei como fazer isso apenas com a latex()função de R. Vermanualpara obter mais informações sobre Sweave.

Alguns editores fazem você editar e compilar .Rnwdiretamente da fonte, comoRstudio. ATÉ ONDE SEI,Texmakertambém pode lidar com isso.

Answer 1