在R markdown文件上使用表格标题，使用knitr在pandoc中使用以转换为pdf

Question

我想知道是否可以在 .Rmd 文件中使用 knitr 的表格标题，如图形标题？

我看到了图形标题的选项，但我看不到表格标题的选项。我还想删除诸如 "% latex table generated in R 2.15.2 by xtable 1.7-0 package % Wed Mar 06 15:02:11 2013" 之类的消息。

我使用X表创建表：我使用的示例代码如下：

```{r table2, results='asis', message=FALSE} 
library(xtable) 
print(xtable(head(iris))) 
``` 

我通过pandoc处理后得到的表如下：

我尝试在 Rmd 文件中使用 message=FALSE 来消除上面显示的消息。我还想知道是否可以在 Rmd 中自动为表格添加标题？

我的标题是指下面的内容（这是针对数字的），并且数字会自动更新。

此输出是pdf使用knitr创建的markdown文件生成的pdf的快照。

谢谢。

Answer 1

我知道这是多年前的事了，但如果有像我这样的人来到这里寻找答案，我会告诉你我找到的相同问题的答案。

真的很简单，我们只需要输入：

```{r mostrarSerie,results='asis',echo=FALSE}
library(xtable)
options(xtable.floating = TRUE)
print(xtable(AP, digits = 0,caption = "Serie de tiempo"),comment = FALSE)
```

重要的一步是输入选项xtable.floating = TRUE，因为这样LaTeX会识别表格。

Answer 2

您可以使用xtable 完成此操作。将caption 添加到xtable 和comment=FALSE 到print 函数。

print(
  xtable(
    head(iris),
    caption = 'Iris data'
  ),
  comment = FALSE,
  type = 'latex'
)

请参阅 xtable 和 print.xtable 文档。

Answer 3

您可以在 markdown 中插入带有自动编号标题的表格，以便使用直 knitr 代码使用 pandoc 进行处理。将此代码 sn-p 插入 .rmd 文件的顶部：

```{r setup, echo=FALSE}
tn = local({
  i = 0
  function(x) {
    i <<- i + 1
    paste('\n\n:Table ', i, ': ', x, sep = '')
    # The : before Table tells pandoc to wrap your caption in <caption></caption>
  }
})
knit_hooks$set(tab.cap = function(before, options, envir) {
  if(!before)
    tn(options$tab.cap)
})
default_output_hook = knit_hooks$get("output")
knit_hooks$set(output = function(x, options) {
  if (is.null(options$tab.cap) == F)  
    x
  else
    default_output_hook(x,options)
})
```

插入编号表标题：

```{r myirischunk, tab.cap="This is the head of the Iris table"}
kable(head(iris))
```

通过覆盖输出挂钩并使用 tab.cap，您无​​需使用 results='asis' 来混淆块选项。

谢谢针织者！

PS：如果您想转换为 Latex/pdf，您可能希望 Latex 为您的表格编号。在这种情况下，您可以将 tn(options$tab.cap) 更改为 paste('\n\n:', options$tab.cap, sep='') - 但我尚未对此进行测试。

Answer 4

如果你不坚持使用 LaTeX/HTML-only 解决方案和其他很棒的 xtable 包，你可以通过 Pandoc 的降价实现相同的效果。一种选择是在表格下方添加caption manually，或使用我的R Pandoc writer package：

> library(pander)                         # load pkg
> panderOptions('table.split.table', Inf) # not to split table
> set.caption('Hello Fisher!')            # add caption
> pander(head(iris))                      # show (almost) any R object in markdown
-------------------------------------------------------------------
 Sepal.Length   Sepal.Width   Petal.Length   Petal.Width   Species 
-------------- ------------- -------------- ------------- ---------
     5.1            3.5           1.4            0.2       setosa  

     4.9            3.0           1.4            0.2       setosa  

     4.7            3.2           1.3            0.2       setosa  

     4.6            3.1           1.5            0.2       setosa  

     5.0            3.6           1.4            0.2       setosa  

     5.4            3.9           1.7            0.4       setosa  
-------------------------------------------------------------------

Table: Hello Fisher!

然后使用 Pandoc 将此 markdown 文件转换为 HTML、LaTeX、docx、odt 或任何其他流行的文档格式。