Как вы печатаете таблицу в knitr

Я пытаюсь использовать knitr для печати фрейма данных в формате таблицы с помощью xtable:

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

Любые идеи, что мне здесь не хватает?

Ответ 1

Попробуйте kable от knitr. Он отлично отформатирует таблицу.

Если вы хотите использовать xtable try:

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

Ответ 2

В то время как решение Пьерса работает, это в идеале должно произойти автоматически. К счастью, для выполнения этой работы вы можете использовать крючки для крюка.

То есть, учитывая этот код:

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