在R markdown文件上使用表格標題使用knitr在pandoc中使用轉換爲pdf

Question

我想知道是否有可能使用表格標題像使用knitr在.Rmd文件中的圖片標題？

我看到了數字標題的選項，但我看不到表格標題的選項。我也想刪除消息，如"% 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創建的降價文件生成的pdf的快照。

謝謝。

Answer 1

如果您不堅持使用僅包含LaTeX/HTML的解決方案以及其他非常棒的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這個降價文件轉換爲HTML，乳膠，DOCX，ODT或任何其他流行的文檔格式。

Answer 2

您可以在markdown中插入帶有自動編號標題的表格，以便使用直接編碼器代碼進行pandoc處理。

```{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你不需要在你.rmd文件的頂部插入此代碼段混亂你的塊選項結果='asis'。

Thanks Knitr！ PS：如果你想轉換爲latex/pdf，你可能會希望latex爲你編號。在這種情況下，您可以將tn(options$tab.cap)更改爲paste('\n\n:', options$tab.cap, sep='') - 但我沒有測試過。

Answer 3

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

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

查看xtable和print.xtable文檔。