Allinea più tabelle affiancate

Question

Il codice seguente produce 2 tabelle una sopra l'altra. Come potrei impostarlo per averli allineati uno accanto all'altro, ad es. 3 a una fila?

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

uscita si presenta così:

Answer 1

Basta mettere due frame di dati in un elenco, ad esempio,

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

Nota questo richiede knitr> = 1.13.

Answer 2

Ho usato questo Align two data.frames next to each other with knitr? che mostra come farlo in html e questo https://tex.stackexchange.com/questions/2832/how-can-i-have-two-tables-side-by-side per allineare 2 tavoli in lattice uno accanto all'altro. Sembra che non sia possibile regolare liberamente le linee del tavolo come si può fare con xtable (qualcuno ne sa di più?). Con format = Latex si ottiene una linea orizzontale dopo ogni riga. Ma la documentazione mostra due esempi per altri formati. Uno che utilizza il pacchetto longtable (argomento aggiuntivo: longtable = TRUE) e l'altro che utilizza il pacchetto 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}" 
)) 
```