Steuern der Größe von Tabellen, die von den R-Funktionen tabular() und latex() erstellt werden

Question

tablesDa Sie das Paket von verwenden R, müssen Sie auch verwenden Sweave. Hier ist eine .RnwDatei, die für Sie funktionieren könnte. Ich habe nicht so viel Erfahrung mit R. Ich verwende es nur für einige grundlegende statistische Berechnungen. Es tut mir also leid, wenn ich Ihnen keine eindeutige Antwort geben kann, ob Sie die Größe der Tabelle mit demlatex() . Wenn das Ihre einzige Option wäre, würde ich vorschlagen, in zu fragenKreuzvalidiert.

Speichern Sie dies unter foobar.Rnwund legen Sie es in Ihrem Arbeitsverzeichnis ab. Legen Sie nun in R Ihr Arbeitsverzeichnis fest setwd()(falls Sie dies noch nicht getan haben). Führen Sie nun Folgendes aus:

Sweave("foobar.Rnw")

Wenn Sie damit erfolgreich sind, sollten Sie sehen

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

Am Ende.

Öffnen Sie nun in Ihrem Arbeitsverzeichnis foobar.texIhren bevorzugten TeX-Editor und führen Sie ihn aus pdflatexoder führen Sie einfach aus

pdflatex foobar

in Ihrem Terminal/Ihrer Befehlszeile.

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}

Ich habe die letzten Zeilen auskommentiert, da ich wirklich nicht weiß, was sie tun, und um die Datei auf meinem Computer zu kompilieren. :-)Hier ist die Ausgabe der zweiten Seite.

Bildbeschreibung hier eingeben

Wenn Sie wirklich nur an der Tabellenausgabe interessiert sind, schlage ich vor, dass Sie vor dem Codeblock einfach \smalloder \footnotesizeusw. schreiben. Auch hier weiß ich nicht, wie ich das nur mit der latex()Funktion von machen soll R. Siehemanualfür weitere Informationen zu Sweave.

Einige Editoren erfordern das Bearbeiten und Kompilieren.Rnw direkt aus dem Quellcode, wie zum BeispielRstudio. SO VIEL ICH WEISS,Texmakerkann auch damit umgehen.

Answer 1