R: заголовок таблицы (или комментарий)

Question

Я хочу разместить комментарий под таблицей, распечатанной xtable. Я подумал, что лучшим вариантом будет использовать параметр "заголовок": xtable(tablename, caption="This is a caption"), Но это как-то автоматически вставляет "Таблицу 1", так что результат выглядит так:

Таблица 1: Это подпись.

Есть ли способ подавить этот или какой-либо более простой способ добавить комментарий просто как дополнительную последнюю строку в таблице?

Answer 1

Во-первых, некоторые фиктивные данные:

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

Теперь вот несколько неуклюжее решение, используя print.xtable"s 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}

Answer 2

Если вы используете RMarkdown, добавьте это в шапку:

---
(other configs here, like title, author, etc.)

header-includes:
    - \usepackage{caption}
    - \captionsetup{labelformat=empty}
---

Редактировать:

После разговора с сопровождающим пакета xtable, Дэвидом (это было очень доступно), он пришел с этим решением, которое я опубликую ниже:

Я думаю, что это можно решить с помощью xtableList. Создайте некоторые данные и преобразуйте фрейм данных в xtableList.

set.seed(230)
DF <- data.frame(a = rnorm(5), b = rnorm(5), c = rnorm(5))
library(xtable)
dfList <- list(DF)
attr(dfList, "message") <- c("A caption", "Which can have multiple lines")

Затем xtable выдает следующее:

print(xtableList(dfList))
## % latex table generated in R 3.2.5 by xtable 1.8-3 package
## % Sat Jul 09 21:52:53 2016
## \begin{table}[ht]
## \centering
## \begin{tabular}{rrrr}
## \hline
## & a & b & c \\
## \hline
## 1 & -0.23 & 0.04 & 1.34 \\
## 2 & 0.10 & 0.57 & -1.62 \\
## 3 & 0.33 & -0.14 & 0.83 \\
## 4 & 0.36 & -0.75 & 0.20 \\
## 5 & 0.44 & 0.13 & -0.49 \\
## \hline
## \multicolumn{4}{l}{A caption}\\
##
## \multicolumn{4}{l}{Which can have multiple lines}\\
## \end{tabular}
## \end{table}

Для работы с длинными заголовками вам нужно разбить строки:

attr(dfList, "message") <- c("A caption", "Which can have", "multiple lines")

Answer 3

По сути, это повторяет этот ответ, но это наиболее программный способ сделать это с xtable, Это ужасно, в основном потому, что я ненавижу xtable "s add.to.row аргумент работает.

Пример данных:

set.seed(230)
DF <- data.frame(a = rnorm(5), b = rnorm(5), c = rnorm(5))

#of course, we can pass this directly below; I'm just saving
#  horizontal space for this answer
comm <- paste0("\\hline \n \\multicolumn{4}{l}",
           "{\\scriptsize{Check out these random numbers!}} \n")

print.xtable(xtable(DF, caption = "Describe the table"),
             #adjusting hline.after so that our comment appears
             #  "outside" the table, as defined by its border
             hline.after=c(-1, 0),
             #**NOTE: the first argument to add.to.row must be
             #  a list -- don't ask me why since it strikes me as odd**
             add.to.row = list(pos = list(5),
                               command = comm))

Вот вывод TeX:

% latex table generated in R 3.2.4 by xtable 1.8-2 package
% Mon May 23 18:25:14 2016
\begin{table}[ht]
\centering
\begin{tabular}{rrrr}
  \hline
 & a & b & c \\ 
  \hline
1 & -0.23 & 0.04 & 1.34 \\ 
  2 & 0.10 & 0.57 & -1.62 \\ 
  3 & 0.33 & -0.14 & 0.83 \\ 
  4 & 0.36 & -0.75 & 0.20 \\ 
  5 & 0.44 & 0.13 & -0.49 \\ 
   \hline 
 \multicolumn{4}{l}{\scriptsize{Check out these random numbers!}} 
\end{tabular}
\caption{Describe the table} 
\end{table}

И результат.pdf, если я заверну его \documentclass{article}, \begin{document}, а также \end{document}:

Конечно, можно добавить гораздо больше наворотов, чтобы подготовить его к публикации, но это суть, и вы должны быть в пути.