r - Hmisc::latex 不打印带有表格对象的标题

Question

首先，我会告诉你我正在尝试做大局，以防万一我做错了。我有一个嵌套表，我想使用 knit 将其作为 RStudio 中的 LaTeX 表输出。在我尝试添加标题之前我很好。我尝试了 tables vignette (LINK) 第 9 页上的示例。 。

没有标题它可以工作，但是当我添加标题时它就不行了。它也适用于非表格对象。有趣的是，latex.default 可以工作，但会在 RStudio/knitr 的编译 PDF 中导致错误，并且从我读到的内容来看，无论如何都是由 latex 调用的；而且 table 不再适本地圆形。我尝试了latexTabular，但也没有适当舍入。

library(Hmisc); library(tables)
latex(head(mtcars), file="", caption="de")   #works

x <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
         (Sepal.Length + Sepal.Width)*(mean + sd), data=iris )

latex(x, file="", caption="de") #no caption :(

理想情况下，我希望能够在输出中包含 \caption{de}，但无法弄清楚我哪里出错了。

如果有帮助，这里是输入和输出:

> latex(x, file="", caption="de", label="tab1") 
\begin{tabular}{lccccc}
\hline
 &  & \multicolumn{2}{c}{Sepal.Length} & \multicolumn{2}{c}{Sepal.Width} \\ 
Species  & n & mean & sd & mean & sd \\ 
\hline
setosa  & $\phantom{0}50$ & $5.01$ & $0.35$ & $3.43$ & $0.38$ \\
versicolor  & $\phantom{0}50$ & $5.94$ & $0.52$ & $2.77$ & $0.31$ \\
virginica  & $\phantom{0}50$ & $6.59$ & $0.64$ & $2.97$ & $0.32$ \\
All  & $150$ & $5.84$ & $0.83$ & $3.06$ & $0.44$ \\
\hline 
\end{tabular}

Answer 1

我很尴尬地承认这一点，但整个问题是我试图在代码块中强制添加一些不属于的内容。我为帮助 future 的搜索者而感到自豪。 latex Material 在外面。因此，如果您尝试将上面的表格绘制为格式良好的表格，那么这就是您正在寻找的:

\begin{table}[ht]
\caption{This is a sample caption. \label{guy}}
<<desc, echo = FALSE, results = 'asis'>>=
x <- tabular( (Species + 1) ~ (n=1) + Format(digits=2)*
     (Sepal.Length + Sepal.Width)*(mean + sd), data=iris )
latex(x)
@
\end{table}