更改表格标题的位置（tufte_handout）

Question

这是R - ＆gt;乳胶问题。 我用tufte_handout

我需要在表格下方放置一个全宽表格的标题，因为表格太宽了。

这是Rmarkdown文件

---
title: "Untitled"
author: "A. Nonymous"
date: "19/8/2017"
header-includes:
   - \usepackage{array}
output:
  tufte::tufte_handout:
    citation_package: natbib
    keep_tex: yes
    latex_engine: xelatex
---

```{r setup, include=FALSE}
library(tidyverse)
library(tibble)
library(knitr)
library(kableExtra)
library(tufte)

knitr::opts_chunk$set(echo = TRUE)

options(knitr.table.format = "latex") 
```


# table


```{r table-1, fig.fullwidth=T, echo=FALSE}

tmp <- tibble(`long titre de texte de colonne` = 1:3, 
              `encore un long titre de colonne` = 101:103,
       `c'est très long là aussi (trop)`=31:33, 
       `mais pourquoi est-ce si long ? (oui, pourquoi?)`=c("a","b","b"))
tmp <- as.data.frame(tmp)

knitr::kable(tmp,booktabs=TRUE,caption="test de test de table, mais c'est trop long et oh là là ça fait une collision") %>% 
  column_spec(1, width = "10em") %>%
  column_spec(2, width = "10em") %>%
  column_spec(3, width = "10em") %>%
  column_spec(4, width = "10em") 

```