r - 在 pander 生成的表头中方便地插入自定义文本

Question

我正在 pander 中生成一个简单的表格。我想更好地控制作为标题显示的文本。例如下面的代码：

---
title: "OddFile"
author: "Test"
date: "November 18, 2015"
output: pdf_document
---

Amazing table

```{r sourceDescribeIndicators, echo=FALSE, eval=TRUE, message=FALSE, warning=FALSE, cache=TRUE}
library(datasets)
data(mtcars)
require(reshape2)
mtcars$nme <- rownames(mtcars)
mtc_melt <- melt(data = mtcars, id.vars = c("nme"))

# Pander
require(pander)
pander(data.frame("Available Models" = unique(mtc_melt$nme)))
```

将生成下表：

应用于生成的唯一值向量的数据框转换导致Available Models被转换为Available.Models，因为该make.names函数将返回相同的结果。我怎样才能方便地解决它？我对一种解决方案感兴趣，该解决方案使我能够在通过pander.

Answer 1

这不是pander问题，但默认情况下会在内部data.frame调用make.names，但您可以通过check.names参数覆盖此行为，例如：

> pander(head(data.frame("Available Models" = unique(mtc_melt$nme), check.names = FALSE)))

------------------
 Available Models 
------------------
    Mazda RX4     

  Mazda RX4 Wag   

    Datsun 710    

  Hornet 4 Drive  

Hornet Sportabout 

     Valiant      
------------------