在 pander 生成的 table headers 中方便地插入自定义文本

Conveniently inserting custom text in table headers generated by pander

我正在 pander 中生成一个简单的 table。我想更好地控制显示为 header 的文本。例如下面的代码:

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

会生成以下 table:

应用于生成的唯一值向量的数据帧转换导致 可用模型 被转换为 Available.Models 作为make.names 函数会 return 相同的结果。我怎样才能方便地解决它?我对一种解决方案感兴趣,该解决方案使我能够在通过 pander.

生成 table 时使用语法不正确的字符串

这不是 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      
------------------