r - 更改表格标题的位置 (tufte_handout)

Question

这是一个 R -> 乳胶问题。我使用 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") 

```

Answer 1

我知道这不完全是您正在寻找的东西，但我遇到了同样的问题，并且将表格代码块包装在::: {.fullwidth} :::防止重叠的标题（至少）中。请注意，我在这里只在块“```”之前添加了一个“”以进行可视化。

::: {.fullwidth}
\```{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") 

\```
:::