R markdown pdf изменить заголовки надписей рядом друг с другом

Question

Обращаясь к этому вопросу: Таблицы латексных таблиц рядом друг с другом «Не в режиме внешней номинальной мощности»

Следуя небольшому примеру из ответа Питера на связанный вопрос.

    ---
    title: "example"
    header-includes:
      \usepackage{subcaption}
      \usepackage{booktabs}
      \usepackage[table]{xcolor}
    ---


    ```{r start-block}
    library(dplyr)
    library(knitr)
    library(kableExtra)
    opts_chunk$set(echo = FALSE)
    ``` 

    Build two example tables based on the `mtcars` data set.


    ```{r sample, results='asis'}
    t1 <- kable(head(mtcars)[1:3], format = "latex", booktabs = TRUE) %>%  kable_styling(latex_options = c("striped"), font_size=5)
    t2 <- kable(head(mtcars)[4:6], format = "latex", booktabs = TRUE) %>% kable_styling(latex_options = c("striped"), font_size=5) 
    ```

    Modify the tables to use the `subtable` environment and added labels and
    captions.

    ```{r}
    t1 <- gsub("\\begin{table}[H]", "\\begin{subtable}[b]{0.48\\linewidth}\n\\caption{\\label{tab:1a}This is Table 1 in the example, but now labeled with a (a).}\n", t1, fixed = TRUE)
    t1 <- gsub("\\end{table}", "\\end{subtable}", t1, fixed = TRUE) 

    t2 <- gsub("\\begin{table}[H]", "\\begin{subtable}[b]{0.48\\linewidth}\n\\caption{\\label{tab:1b}Shorter caption.}", t2, fixed = TRUE)
    t2 <- gsub("\\end{table}", "\\end{subtable}", t2, fixed = TRUE) 
    ```

    Place the tables into the document.

    ```{r, results = "asis"}
    cat("",
        "\\begin{table}[!htb]",
        "\\centering",
        "\\caption{\\label{tab:tab1}Two tables, side-by-side.}",
        t1,
        t2,
        "\\end{table}",
        "",
        sep = "\n") 
    ```

Я могу напечатать две таблицы рядом.Что я хотел бы сделать, это изменить метку заголовка двух таблиц с «(а)» на «Таблица 1».Я пытался изменить его непосредственно из строки:

    ```{r}
    t1 <- gsub("\\begin{table}[H]", "\\begin{subtable}[b]{0.48\\linewidth}\n\\caption{\\label{tab:Table 1}This is Table 1 in the example, but now labeled with a (a).}\n", t1, fixed = TRUE)

    t2 <- gsub("\\begin{table}[H]", "\\begin{subtable}[b]{0.48\\linewidth}\n\\caption{\\label{tab:Table 2}Shorter caption.}", t2, fixed = TRUE)
    ```

Но ничего не изменилось.Если я изменю метки непосредственно в опции kable с помощью:

t1 <- kable(head(mtcars)[1:3], format = "latex", booktabs = TRUE, labels="Table",caption="Test") %>% 
 kable_styling(latex_options = c("striped"), font_size=5)

, я получу ошибку

! Package caption Error: \caption outside float.

, потому что структура латекса неверна.

.. Любое предложение?

Answer 1

Если вам нужны две независимые таблицы вместо двух соединенных вложенных таблиц, вы можете использовать один из подходов, предложенных в этом ответе TEX.SE , например,

---
output:
  pdf_document:
      keep_tex: yes
header-includes:
-  \usepackage{booktabs}
---


```{r start-block}
library(dplyr)
library(knitr)
library(kableExtra)
opts_chunk$set(echo = FALSE)
``` 

Build two example tables based on the `mtcars` data set.

```{r sample, results='asis'}
t1 <- kable(head(mtcars)[1:3], format = "latex", booktabs = TRUE) %>%
    kable_styling(latex_options = c("striped"), font_size=5)
t2 <- kable(head(mtcars)[4:6], format = "latex", booktabs = TRUE) %>%
    kable_styling(latex_options = c("striped"), font_size=5) 
```

Modify the tables to use the `minipage` environment and added labels and
captions.

```{r}
t1 <- gsub("\\begin{table}[H]",
           "\\begin{minipage}{0.48\\linewidth}\n\\caption{\\label{tab:1}This is Table 1.}\n",
           t1, fixed = TRUE)
t1 <- gsub("\\end{table}", "\\end{minipage}", t1, fixed = TRUE) 

t2 <- gsub("\\begin{table}[H]",
           "\\begin{minipage}{0.48\\linewidth}\n\\caption{\\label{tab:2}Shorter caption.}",
           t2, fixed = TRUE)
t2 <- gsub("\\end{table}", "\\end{minipage}", t2, fixed = TRUE) 
```

Place the tables into the document.

```{r, results = "asis"}
cat("",
    "\\begin{table}[!htb]",
    "\\centering",
    t1,
    t2,
    "\\end{table}",
    "",
    sep = "\n") 
```

Результат: