R xtable在表的顶部添加标题，在表的下方添加标题

我想在Rnw文档中的

xtable

上添加标题。这是密码。不幸的是，我无法在表下添加标题。我尝试了\caption{}函数，但它不会打印PDF

我已经看到了，但是它不适用于从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")
@

=
图书馆（xtable）
pop5lm我在
xtable
中看不到一个快速选项，无法将文本添加到表格底部（这并不意味着没有文本），因此我在您的问题中使用了来自和来自链接的想法。这是一个相当粗糙的解决方案，有一个很大的缺点，即需要指定要添加的文本的宽度（等于表格的宽度）-如果设置得太长，则会拉伸最后一列（参见更改8.5到10）

标题打印出来了，但如果我想在表下添加描述，它就不起作用了。我不知道怎么做。例如，我想补充：“在这个表中，我使用了一个线性模型，blablabla…”。简言之，将有标题、表格和与表格链接的说明。顺便说一句，谢谢你的快速回复！谢谢！它起作用了。如果你知道的话，为什么它会在末尾创建一个新行。可以把它取下来吗？这是一个设计目的！不客气。您是指文本下方的水平线（\hline）吗？。如果是，要删除，请指定线的位置；使用
hline.after
指定\hline您想要的[
..，blah}]，hline.after=c（-1，0））
]哇！！这正是我想要的。你太棒了！我尝试将其输出到html，但没有成功。有什么想法吗？@user20650太棒了！太棒了！
\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}

```{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>'))

```