r - R:xtable标题(或注释)

我想在xtable.打印的表格下添加注释，我认为最好的选择是使用“标题”选项：xtable(tablename, caption="This is a caption")。但这是以某种方式自动放入“表1”中的，因此输出如下所示：


表1：这是一个标题。


是否有任何方法可以抑制这种情况，或者以简单的方式仅作为表中的最后一行添加注释？

最佳答案

首先，一些模拟数据：

x <- sample(LETTERS, 5, replace = TRUE)
y <- sample(LETTERS, 5, replace = TRUE)
z <- table(x, y)

现在，这是一个使用print.xtable的add.to.row参数的笨拙解决方案。

comment          <- list()
comment$pos      <- list()
comment$pos[[1]] <- c(nrow(z))
comment$command  <- c(paste("\\hline \n",  # we`ll replace all default hlines with this and the ones below
                            "your footnote, caption or whatever.  \n",
                            sep = ""))
print(xtable(z),
      add.to.row = comment,
      hline.after = c(-1, 0))  # indicates rows that will contain hlines (the last one was defined up there)

如果要将注释放在数据之前，请使用comment$pos[[1]] <- c(0)代替comment$pos[[1]] <- c(nrow(z))并相应地调整hline.after。

这是我的输出：

% latex table generated in R 2.14.1 by xtable 1.7-0 package
% Mon Feb 20 02:17:58 2012
\begin{table}[ht]
\begin{center}
\begin{tabular}{rrrrr}
\hline
& B & C & P & V \\
\hline
A &   0 &   0 &   0 &   1 \\
D &   1 &   0 &   0 &   0 \\
I &   0 &   0 &   0 &   1 \\
P &   0 &   0 &   1 &   0 \\
Z &   0 &   1 &   0 &   0 \\
\hline
your footnote, caption or whatever.
\end{tabular}
\end{center}
\end{table}

关于r - R:xtable标题(或注释)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/6163823/