Controlar el tamaño de las tablas producidas a partir de las funciones R tabular() y latex()

Question

Dado que está utilizando tablesel paquete de R, debe utilizar Sweave. Aquí tienes un .Rnwarchivo que podría funcionar para ti. No tengo mucha experiencia con R. Solo lo uso para algunos cálculos estadísticos básicos. Así que lo siento si no puedo darle una respuesta definitiva sobre si puede configurar el tamaño de la tabla usando ellatex() comando. Si esa fuera su única opción, sugeriría preguntar enValidación cruzada.

Guarde esto como foobar.Rnwy colóquelo en su directorio de trabajo. Ahora, en R, configure su directorio de trabajo usando setwd()(si aún no lo ha hecho). ahora corre

Sweave("foobar.Rnw")

Si tiene éxito al hacer esto, debería ver

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

al final.

Ahora, en su directorio de trabajo, abra foobar.texcon su editor TeX favorito y ejecute pdflatexo simplemente ejecute

pdflatex foobar

en su terminal/línea 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}

He comentado las últimas líneas porque realmente no sé qué hacen y cómo compilar el archivo en mi computadora. :-)Aquí está el resultado de la segunda página.

ingrese la descripción de la imagen aquí

Si realmente está justo después del resultado de la tabla, le sugiero que simplemente escriba \smallo \footnotesize, etc., antes del fragmento de código. Nuevamente, no sé cómo hacer esto solo con la latex()función de R. Vermanualpara más información sobre Sweave.

Algunos editores te obligan a editar y compilar .Rnwdirectamente desde la fuente, comoRstudio. HASTA DONDE SE,TexmakerTambién puedo manejarlo.

Answer 1