控制由 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例如工作室。 AFAIK，Texmaker也能处理。

Answer 1