r - xtable 在顶部添加标题，在表格下方添加标题

Question

我想在 Rnw 文档的 xtable 上添加标题。这是代码。不幸的是，我无法在表格下添加标题。我尝试过\caption{} 函数，但它不会打印 PDF。

我见过R: xtable caption (or comment) ，但它不适用于从 R 中的 lm() 函数创建的表。您有任何线索吗？

<<yoman,echo=FALSE,results=tex>>=
library(xtable)

pop5lm <- lm(mpg ~ wt, data=mtcars) #my linear model

print(xtable(pop5lm,
             caption = c("Estimates of linear model for father Muro CB"), 
             label = "tab:one", digits = c(0,2, 2, 2,3)), 
             table.placement = "tbp", 
             caption.placement = "top")
@

Answer 1

我在xtable中看不到将文本添加到表格底部的快速选项(这并不意味着没有)，所以我使用了 here 中的一个想法，从你的问题中的链接。这是一个相当粗略的修复，有一个很大的缺点，您需要指定要添加的文本的宽度(等于表格的宽度) - 如果您使它太长，它会拉伸(stretch)最后一列(请参阅将 8.5 更改为 10 )。

\documentclass{article}

\usepackage{array}
\newcolumntype{L}[1]{>{\raggedright\arraybackslash}m{#1}}

\begin{document}
\SweaveOpts{concordance=TRUE}

<<yoman,echo=FALSE,results=tex>>=
library(xtable)

mod <- lm(mpg ~ wt, data=mtcars) #my linear model

print(xtable(mod,
             caption = "Estimates of linear model for father Muro CB ", 
             #label = "tab:one", 
             digits = c(0,2, 2, 2,3)), 
             table.placement = "h!", 
             caption.placement = "top",
             add.to.row = list(list(2),  
             "\\hline  \\multicolumn{5}{L{8.5cm}}{\\textbf{Note: }
             This is a description, blah, blah, blah, blah,  blah, blah, 
             blah, blah, blah, blah, blah, blah, blah, blah, blah, blah, 
             blah, blah, blah, blah, blah, blah, blah, blah, blah, blah, 
             blah, blah, blah, blah, blah, blah} \\\\"))

@

\end{document}

我认为 latex 中有很多替代品可以实现这一点，但可能会帮助您入门。

<小时/>

来自评论:我尝试将其输出为 html，但没有成功。有什么想法吗？

您可以在 print.table 的 add.to.row 参数中更改 Latex 命令 multicolumn 以使用 html 改为表函数。 (使用Rmarkdown的html输出)

```{r,echo=FALSE, results='asis'}
library(xtable)

mod <- lm(mpg ~ wt, data=mtcars) #my linear model

print(xtable(mod,
             caption = "Estimates of linear model for father Muro CB ", 
             digits = c(0,2, 2, 2,3)), 
             type="html",
             caption.placement = "top",
             add.to.row = list(list(2),  
             '<tr><td colspan="5"><b>Note: </b>
             This is a description, blah, blah, blah, blah,  blah, blah, 
             blah, blah, blah, blah, blah, blah, blah, blah, blah, blah, 
             blah, blah, blah, blah, blah, blah, blah, blah, blah, blah, 
             blah, blah, blah, blah, blah, blah</td></tr>'))

```