r - How to create a table in Rstudio presentation

Question

I'm trying to create a table in an RStudio .Rpres file. Below is what I have at this point from online searching but the alignment is not correct. Is this the best method? Any suggestions on the alignment?

Test
=========================================================
| Right | Left | Default | Center |
|------:|:-----|---------|:------:|
|   12  |  12  |    12   |    12  |
|  123  |  123 |   123   |   123  |
|    1  |    1 |     1   |     1  |

  : Demonstration of simple table syntax.

Result:

Answer 1

您可以使用knitr::kable打印您的data.frame

Test
========================================================

```{r, echo=FALSE}
my_df <- iris
knitr::kable(head(my_df))
```

@alignments：我尝试align = c('l', 'r', 'c', 'r', 'l')按照中所述使用，?kable 但没有用。也许这是一个错误。

的输出

knitr::kable(head(iris), align = c('l', 'r', 'c', 'r', 'l'))

|Sepal.Length | Sepal.Width| Petal.Length | Petal.Width|Species |
|:------------|-----------:|:------------:|-----------:|:-------|
|5.1          |         3.5|     1.4      |         0.2|setosa  |
|4.9          |         3.0|     1.4      |         0.2|setosa  |
|4.7          |         3.2|     1.3      |         0.2|setosa  |
|4.6          |         3.1|     1.5      |         0.2|setosa  |
|5.0          |         3.6|     1.4      |         0.2|setosa  |
|5.4          |         3.9|     1.7      |         0.4|setosa  |

Answer 2

一个pander例子：

```{r}
df <- replicate(3, sample(letters, 3))
colnames(df) <- rep('foobar', 3)
pander::pander(df, justify = c('right', 'left', 'center'))
```

或为所有列指定全局对齐方式（顺便说一句，这也可以是一个智能函数）：

```{r}
set.alignment('right')
pander::pander(df)
```

两者都会生成格式正确的降价表，在 HTML 中呈现良好。

Answer 3

我设法通过在函数调用中align包含format = "html"参数来开始工作，所以在上面讨论的 FlooO 示例中：

knitr::kable(head(iris), format = "html", align = c('l', 'r', 'c', 'r', 'l'))

给了我想要的结果