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}

最後の行が何をするのかよくわからないのでコメントアウトしました。ファイルを自分のコンピューターでコンパイルできるようにしました。2:-)ページ目の出力は次のとおりです。

ここに画像の説明を入力してください

本当にテーブル出力だけが必要な場合は、コードチャンクの前に\smallまたはなどと記述することをお勧めします。の関数\footnotesizeだけでこれを行う方法はわかりません。latex()Rmanual詳細についてはをご覧くださいSweave。

いくつかのエディタで.Rnwは、ソースから直接編集してコンパイルすることができます。スタジオ。私の知る限り、Texmakerも対応可能です。

Answer 1