在 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
------------------
我正在 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
.
这不是 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
------------------