Sweave-5

表は以下のようにする。

<<>>=
library(xtable)
@

<<>>=
d <- data.frame(i=1:5, x=rnorm(5), s=month.name[1:5])
print(xtable(d, caption="foo bar baz", label="tab1", digits=c(0, 0, 5, 0)), table.placement="htbp", caption.placement="top", include.rownames=FALSE)
@

フロートになる。

\begin{table}[htbp]
\begin{center}
\caption{foo bar baz}
\label{tab1}
\begin{tabular}{rrl}
  \hline
i & x & s \\
  \hline
 1 & 2.14673 & January \\
  2 & 1.41907 & February \\
  3 & 0.21646 & March \\
  4 & 1.60816 & April \\
  5 & 2.30823 & May \\
   \hline
\end{tabular}
\end{center}
\end{table}

print メソッド（print.table）を使用すれば，xtable をそのまま使ったのでは制御できないオプション指定ができる。

<<>>=
library(xtable)
@

<<>>=
ans <- lm(Sepal.Width ~ Sepal.Length + Petal.Width + Petal.Length, data=iris)
@
<<>>=
xtable(ans, caption="重回帰分析の結果", label="lab1")
@

<<>>=
print(xtable(ans, caption="重回帰分析の結果2", label="lab2"), table.placement="htbp", caption.placement="top")
@