web-dev-qa-db-ja.com

knitrでテーブルをどのように印刷しますか

xtableを使用してデータフレームをテーブル形式で印刷するようにknitrしようとしています：

```{r xtable,fig.width=10, fig.height=8, message=FALSE, results = 'asis', echo=FALSE, warning=FALSE, fig.cap='long caption', fig.scap='short',tidy=FALSE}

print(xtable(d),format="markdown")
```

これはデータフレームdです：

d <- structure(list(Hostname = structure(c(8L, 8L, 9L, 5L, 6L, 7L, 
1L, 2L, 3L, 4L), .Label = c("db01", "db02", "farm01", "farm02", 
"tom01", "tom02", "tom03", "web01", "web03"), class = "factor"), 
    Date = structure(c(6L, 10L, 5L, 3L, 2L, 1L, 8L, 9L, 7L, 4L
    ), .Label = c("10/5/2015 1:15", "10/5/2015 1:30", "10/5/2015 2:15", 
    "10/5/2015 4:30", "10/5/2015 8:30", "10/5/2015 8:45", "10/6/2015 8:15", 
    "10/6/2015 8:30", "9/11/2015 5:00", "9/11/2015 6:00"), class = "factor"), 
    Cpubusy = c(31L, 20L, 30L, 20L, 18L, 20L, 41L, 21L, 29L, 
    24L), UsedPercentMemory = c(99L, 98L, 95L, 99L, 99L, 99L, 
    99L, 98L, 63L, 99L)), .Names = c("Hostname", "Date", "Cpubusy", 
"UsedPercentMemory"), class = "data.frame", row.names = c(NA, 
-10L))

私がここで見逃しているアイデアはありますか？

rknitr
11
user1471980

kableからknitrを試してください。それはテーブルをうまくフォーマットします。

enter image description here

xtableを使用したい場合は、次を試してください。

print(xtable(d), type="latex", comment=FALSE)
20
candles_and_oranges

Pierreのソリューションは機能しますが、これは理想的には自動的に行われるはずです。幸いなことに、これを機能させるためにニットフックを使用することができます。

つまり、次のコードが与えられます。

```{r}
d
```

Knitrは、フォーマット関数を手動で呼び出さなくても、適切にフォーマットされたテーブルを自動的に生成する必要があります。

これが私がそのために使用しているいくつかのコードです。これをknitrドキュメントの先頭に配置する必要がありますまたはドキュメントをコンパイルするコードに：

opts_chunk$set(render = function (object, ...) {
    if (pander_supported(object))
        pander(object, style = 'rmarkdown')
    else if (isS4(object))
        show(object)
    else
        print(object)
})

これはpanderを使用し、さらにヘルパー関数pander_supportedを必要とします。

library(pander)

pander_supported = function (object)
    UseMethod('pander_supported')

pander_supported.default = function (object)
    any(class(object) %in% sub('^pander\\.', '', methods('pander')))

pander.table = function (x, ...)
    pander(`rownames<-`(rbind(x), NULL), ...)

より良いフォーマットのために、私はこれらのデフォルトも使用します：

panderOptions('table.split.table', Inf)
panderOptions('table.alignment.default',
              function (df) ifelse(sapply(df, is.numeric), 'right', 'left'))
panderOptions('table.alignment.rownames', 'left')
5
Konrad Rudolph