Выровнять несколько столов рядом друг с другом

Question

Следующий код создает две таблицы друг над другом. Как бы я установил его, чтобы они выровнялись бок о бок, например. 3 к ряду?

--- 
title: "sample" 
output: pdf_document 
--- 

```{r global_options, R.options=knitr::opts_chunk$set(warning=FALSE, message=FALSE)} 
``` 

```{r sample, echo=FALSE, results='asis'} 
library(knitr) 
t1 <- head(mtcars)[1:3] 
t2 <- head(mtcars)[4:6] 
print(kable(t1)) 
print(kable(t2)) 
``` 

Выход выглядит следующим образом:

Answer 1

Просто поместите два кадра данных в списке, например,

t1 <- head(mtcars)[1:3] 
t2 <- head(mtcars)[4:6] 
knitr::kable(list(t1, t2)) 

Примечание для этого требуется knitr> = 1.13.

Answer 2

Я использовал этот Align two data.frames next to each other with knitr?, который показывает, как сделать это в html и это https://tex.stackexchange.com/questions/2832/how-can-i-have-two-tables-side-by-side для выравнивания 2 таблицы латексной рядом друг с другом. Кажется, что вы не можете свободно регулировать линии стола, как вы можете это сделать с помощью xtable (знает ли кто-нибудь об этом больше?). С format = Latex вы получаете горизонтальную линию после каждой строки. Но документация показывает два примера для других форматов. Один использует пакет longtable (дополнительный аргумент: longtable = TRUE), а другой - booktabs (booktabs = TRUE).

--- 
title: "sample" 
output: pdf_document 
header-includes: 
- \usepackage{booktabs} 
--- 

```{r global_options, R.options=knitr::opts_chunk$set(warning=FALSE, message=FALSE)} 
``` 


```{r sample, echo=FALSE, results='asis'} 
library(knitr) 
library(xtable) 

t1 <- kable(head(mtcars)[1:3], format = "latex", booktabs = TRUE) 
t2 <- kable(head(mtcars)[4:6], format = "latex", booktabs = TRUE) 

cat(c("\\begin{table}[!htb] 
    \\begin{minipage}{.5\\linewidth} 
     \\caption{} 
     \\centering", 
     t1, 
    "\\end{minipage}% 
    \\begin{minipage}{.5\\linewidth} 
     \\centering 
     \\caption{}", 
     t2, 
    "\\end{minipage} 
\\end{table}" 
)) 
```