Выравнивание столбцов с функцией knitr kable

Я выполняю простую задачу: создаю таблицу и вывожу ее с помощью R Markdown to pdf следующим образом:

library(knitr)
kable(datatable,align='ccccccc',
col.names = c("Copy","Sigma Est","Sigma Lower","Sigma Upper", 
"Lambda Est","Lambda Lower","Lambda Upper"),digits=3)

Проблема

когда я выводю таблицу, столбцы не центрируются. На самом деле, для некоторых таблиц они выровнены по правому краю для других - выравнивание по левому краю, что кажется мне довольно случайным.

Вопрос

Как я могу управлять выравниванием столбцов с помощью функции R kable из пакета knitr, то есть, что я делаю неправильно?

ИЗМЕНИТЬ

Продолжительность:

library(knitr)
kable(datatable,align=c(rep('c',times=7)),
col.names = c("Copy","Sigma Est","Sigma Lower","Sigma Upper", 
"Lambda Est","Lambda Lower","Lambda Upper"),digits=3)

Урожайность:

| Copy | Sigma Est | Sigma Lower | Sigma Upper | Lambda Est | Lambda Lower | Lambda Upper |
|:----:|:---------:|:-----------:|:-----------:|:----------:|:------------:|:------------:|
|  0   |  14.631   |   12.275    |   16.987    |   0.129    |    8.778     |    9.296     |
|  1   |  16.988   |   14.275    |   19.700    |   0.136    |    8.190     |    8.736     |
|  2   |  20.850   |   17.517    |   24.183    |   0.129    |    8.595     |    9.113     |
|  3   |  20.551   |   17.229    |   23.874    |   0.127    |    9.015     |    9.523     |
|  4   |  22.651   |   18.993    |   26.310    |   0.127    |    8.969     |    9.478     |
|  5   |  23.369   |   19.652    |   27.086    |   0.127    |    8.599     |    9.108     |

Это именно то, что я хочу, поскольку :---: обозначает центрирование столбцов, однако, когда я нажимаю Knit PDF и создается документ pdf, все столбцы по-прежнему выравниваются по левому краю. Как мне обойти это?

Ответ 1

Вы хотите передать kable вектор строк выравнивания, равный количеству столбцов. Как упоминалось в файле справки,

выравнивание столбцов: вектор символов, состоящий из "l" (слева), "c" (в центре) и/или "r" (справа); по умолчанию числовые столбцы выравниваются по правому краю, а другие столбцы выравниваются по левому краю; если align = NULL, используется выравнивание по умолчанию.

Вот пример воспроизводимости.

Без каких-либо значений выравнивания столбцы символов выравниваются по левому краю, а числовые столбцы выравниваются по правому краю, как показано ниже.

library(knitr)

kable(head(mtcars[1:5]))

который возвращает

|                  |  mpg| cyl| disp|  hp| drat|
|:-----------------|----:|---:|----:|---:|----:|
|Mazda RX4         | 21.0|   6|  160| 110| 3.90|
|Mazda RX4 Wag     | 21.0|   6|  160| 110| 3.90|
|Datsun 710        | 22.8|   4|  108|  93| 3.85|
|Hornet 4 Drive    | 21.4|   6|  258| 110| 3.08|
|Hornet Sportabout | 18.7|   8|  360| 175| 3.15|
|Valiant           | 18.1|   6|  225| 105| 2.76|

Чтобы выравнивать числовые столбцы по центру, сохраняя выравнивание столбца символа, я использовал следующее.

kable(head(mtcars[1:5]), align=rep('c', 5))


|                  | mpg  | cyl | disp | hp  | drat |
|:-----------------|:----:|:---:|:----:|:---:|:----:|
|Mazda RX4         | 21.0 |  6  | 160  | 110 | 3.90 |
|Mazda RX4 Wag     | 21.0 |  6  | 160  | 110 | 3.90 |
|Datsun 710        | 22.8 |  4  | 108  | 93  | 3.85 |
|Hornet 4 Drive    | 21.4 |  6  | 258  | 110 | 3.08 |
|Hornet Sportabout | 18.7 |  8  | 360  | 175 | 3.15 |
|Valiant           | 18.1 |  6  | 225  | 105 | 2.76 |

Следующий текст, скопированный в файл .Rmd, вернет таблицу, отформатированную по желанию в виде файла pdf.

---
title: "Untitled"
output: pdf_document
---

this thing

```{r table1, as.is=TRUE}
library(knitr)

kable(head(mtcars[1:5]))

```


is not a centered table, while this thing

```{r table2, as.is=TRUE}

kable(head(mtcars[1:5]), align=rep('c', 5))

```

is a centered table.

Ответ 2

Вы также можете использовать функцию длины, чтобы создать вектор для всех строк в векторе/кадре данных без необходимости жесткого кодирования длины. В приведенном ниже примере выравнивание по левому краю всех столбцов во фрейме данных mtcars независимо от длины.

 kable(mtcars, align=rep('l', length(mtcars[,1])))