Управление размером таблиц, создаваемых с помощью функций R tabular() и latex()

Question

Поскольку вы используете tablesпакет R, вы должны использовать Sweave. Вот .Rnwфайл, который может вам подойти. У меня не так много опыта работы с R. Я просто использую его для некоторых базовых статистических вычислений. Поэтому извините, если я не могу дать вам точного ответа, можно ли настроить размер таблицы с помощью команды latex(). Если бы это был ваш единственный вариант, я бы предложил спросить вПерекрестная проверка.

Сохраните это как foobar.Rnwи поместите в ваш рабочий каталог. Теперь в R установите ваш рабочий каталог с помощью setwd()(если вы еще этого не сделали). Теперь запустите

Sweave("foobar.Rnw")

Если вам это удастся, вы увидите

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

в конце.

Теперь в вашем рабочем каталоге откройте foobar.texваш любимый редактор TeX и запустите pdflatexили просто запустите

pdflatex foobar

в терминале/командной строке.

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}

Я закомментировал последние строки, так как на самом деле не знаю, что они делают, а также для того, чтобы файл можно было скомпилировать на моем компьютере. :-)Вот вывод второй страницы.

введите описание изображения здесь

Если вы действительно хотите получить только табличный вывод, я предлагаю вам просто написать \smallили \footnotesizeи т. д. перед фрагментом кода. Опять же, я не знаю, как это сделать с помощью только функции latex(). RСмотритеmanualдля получения дополнительной информации о Sweave.

Некоторые редакторы позволяют редактировать и компилировать .Rnwнепосредственно из исходного кода, напримерRstudio. НАСКОЛЬКО МНЕ ИЗВЕСТНО,Texmakerтакже может справиться с этим.

Answer 1