テーブルのリストのXtable出力

Question

私はテーブルのリストを持っていますが、ラテックス出力のためにそれを揺らしたいと思っています。これがコードです：

Data <- esoph[ , 1:3]
library(plyr)
combos <- combn(ncol(Data),2)

TabelFn <- function(x) {
  Table <- addmargins(table(Data[, x[1]], Data[, x[2]]))
  return(Table)
  }

Table <- alply(.data=combos, .margins=2, .fun=TabelFn, .expand=TRUE)
library(xtable)

リスト Table この場合、3つの偶発性テーブルがあり、このコードを使用して出力をLaTexに膨らませることができます。

<< label = tabTable, echo = FALSE, results = tex >>=
print(xtable(Table[1]$'1', caption = "Contingency table for agegp and alcgp", label = "tab:Table[1]",
             digits = c(0, rep(0, ncol(Table[1]$'1'))),
             align = paste(paste("l|", paste(rep("r", ncol(Table[1]$'1')-1), collapse =     ''), sep = ""), "l", sep = "")),
      table.placement = "tbp", caption.placement = "top",
      hline.after = c(-1, 0, nrow(Table[1]$'1')))
@

3つの偶発性テーブルの出力を送信するには、3つのそのようなコマンドを記述する必要があります。この場合、それは実行可能です。しかし、私の実際のデータでは、多くの偶発性表があります。すべての偶発性テーブルをより効率的に送信する方法を知りたいです。選択肢の1つは、リストを印刷することだけです Table それなし xtable. 。しかし、私は偶発性テーブルを素晴らしい出力形式で持っています。お時間をいただきありがとうございます。