xtable と print.xtable の組み合わせで表を書くというのも,長ったらしいオプションであるとか,標準と違うデフォルトとかいうことで,これもまたラッパー関数を書くしかないかなと言うことで以下のようなものを作る。
ytable <- function(x, caption, label, align=NULL, digits=NULL, display=NULL,
table.placement="htbp", caption.placement="top",
math.style.negative=TRUE )
{
library(xtable)
xtable:::print.xtable(xtable(x, caption=caption, label=label, align=align, digits=digits, display=display),
table.placement=table.placement, caption.placement=caption.placement,
math.style.negative=math.style.negative)
}
.Rnw で
ytable(iris[1:10,], "iris data", "sss")
とか
x <- 1:10
y <- rnorm(10)
ytable(lm(y~x), caption="aaaaa", label="qqq")
caption と label は必須。もし,print.xtable の引数でデフォルトにしたいあるいはデフォルト値を変えたいものがあれば,この関数で定義しておく。