Динамическое создание рисунков с подписями в выводе Word из документа Rmarkdown

Я пытаюсь создать документ Word с цифрами. Я использую пакеты {officedown} и {officer}. Мне нужно сделать это динамически, в цикле, так как я не знаю, сколько цифр будет. Это мой код Rmarkdown:

---
output:
  officedown::rdocx_document:
    plots:
      caption:
        style: Table Caption
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
```

```{r}
library(dplyr)
library(flextable)
library(officer)
```


```{r}
block_toc(seq_id = "fig")
```


```{r results='asis'}
ttp <- c(3, 7)
test_items <- c("item A", "item B", "item C")

fpars <- lapply(test_items, function(ti) {
  fpar(
    ftext("Application of "),
    ftext(ti),
    ftext(" Variable text - describe any test item-related effects"),
    ftext(" (see "),
    run_reference("fig:results1"),
    ftext(")."),
    fp_p = fp_par(padding.bottom = 12)
  )
})

do.call(block_list, fpars)
```


```{r}
titles <- lapply(seq_len(length(ttp)), function(i) {
  sprintf(
    "My custom figure caption with %s, having %s side effects",
    paste(test_items, collapse = ", "),
    ttp[i]
  )
})
```


```{r}
tmps <- lapply(seq_len(length(ttp)), function(i) {
  tmp <- tempfile(fileext = ".png")
  png(tmp, width = 6, height = 5, units = "in", res = 120)
  plot(iris[sample(1:150, 30), i + 1:2])
  dev.off()
  return(tmp)
})
```


```{r}
fpars <- lapply(seq_len(length(ttp)), function(i) {
  fpar(
    run_autonum(
      seq_id = "fig",
      pre_label = "Figure ",
      bkm = paste0("fig:results", i),
      bkm_all = TRUE,
      prop = fp_text(bold = TRUE, font.size = 12)
    ),
    titles[[i]],
    external_img(src = tmps[[i]], width = 6, height = 5)
  )
})

do.call(block_list, fpars)
```

Проблема в том, что я генерирую таблицу цифр в отображаемом документе. Это выглядит так:

Запись хранится вместе с самим изображением, не знаю почему. Я сохраняю временные файлы png, чтобы иметь возможность использовать их внутри функции fpar. Использование функции plot непосредственно внутри fpar приводит к плохим последствиям. Может быть, есть другой/лучший способ?

Мне эта конструкция показалась полезной, но, к сожалению, она по умолчанию ставит подписи под рисунками. Моя цель состоит в том, чтобы подписи к рисункам вели себя как подписи к таблицам, то есть подпись располагалась над рисунком.

```{r fig.cap=unlist(titles)}
plot(iris[1:10, 1:2])
```

Как я могу динамически генерировать графики с подписями с помощью пакетов {officedown} или {officer}?

r-markdown officer officedown

07.10.2022 18:33

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Единственная проблема связана с последним лаппли, вам нужно поместить изображение в отдельный абзац, поэтому цикл for будет проще складывать 2 абзаца в список вместо 1 для каждой итерации.

---
output:
  officedown::rdocx_document:
    plots:
      caption:
        style: Table Caption
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
```

```{r}
library(dplyr)
library(flextable)
library(officer)
library(officedown)
```

```{r}
block_toc(seq_id = "fig")
```

```{r}
ttp <- c(3, 7)
test_items <- c("item A", "item B", "item C")

fpars <- lapply(test_items, function(ti) {
  fpar(
    ftext("Application of "),
    ftext(ti),
    ftext(" Variable text - describe any test item-related effects"),
    ftext(" (see "),
    run_reference("fig:results1"),
    ftext(")."),
    fp_p = fp_par(padding.bottom = 12)
  )
})

do.call(block_list, fpars)
```


```{r}
titles <- lapply(seq_len(length(ttp)), function(i) {
  sprintf(
    "My custom figure caption with %s, having %s side effects",
    paste(test_items, collapse = ", "),
    ttp[i]
  )
})
```


```{r}
tmps <- lapply(seq_len(length(ttp)), function(i) {
  tmp <- tempfile(fileext = ".png")
  png(tmp, width = 6, height = 5, units = "in", res = 120)
  plot(iris[sample(1:150, 30), i + 1:2])
  dev.off()
  return(tmp)
})
```


```{r}
fpars <- list()
for (i in seq_along(ttp)) {
  fpars[[length(fpars)+1]] <- fpar(
    run_autonum(
      seq_id = "fig",
      pre_label = "Figure ",
      bkm = paste0("fig:results", i),
      bkm_all = TRUE,
      prop = fp_text(bold = TRUE, font.size = 12)
    ),
    titles[[i]]
  )
  fpars[[length(fpars)+1]] <- fpar(
    external_img(src = tmps[[i]], width = 6, height = 5)
  )
}

do.call(block_list, fpars)
```

Это ответ на вопрос «как это сделать с офицером» с нуля.

Но следующее гораздо проще. Есть вариант fig.topcaption, который делает то же самое.

---
output:
  officedown::rdocx_document:
    plots:
      caption:
        style: Table Caption
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
```

```{r}
library(dplyr)
library(flextable)
library(officer)
library(officedown)
```

```{r}
block_toc(seq_id = "fig")
```

```{r fig.cap = "miaou", fig.topcaption=TRUE}
plot(cars)
```

```{r fig.cap = "ouaf", fig.topcaption=TRUE}
plot(cars)
```

Опция topcaption хороша, но она использует стиль подписи к рисунку по умолчанию. Но решение «с нуля» сделает эту работу;)

— 10.10.2022 17:16

07.10.2022 18:57