Как включить несколько фигур в слайд PowerPoint в RMarkdown? - PullRequest
Новая
       38

Как включить несколько фигур в слайд PowerPoint в RMarkdown?

3 голосов
/ 26 мая 2019

Я создаю презентацию PowerPoint с помощью R-markdown.Как добавить несколько слайдов или «содержимое» на слайд?

Я попытался изменить шаблон PowerPoint, включив в него три блока контента, как указано ниже: img Но я не могу добавить контент к объекту навнизу справа. 

---
title: "pp_test"
output: 
  powerpoint_presentation:
    reference_doc: pp_template3.pptx
---

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

# Slide with 3 contents

:::::::::::::: {.columns}
::: {.column}
Text
:::
::: {.column}
```{r pressure, echo=FALSE, fig.cap="Caption"}
plot(pressure)
```
:::
::: {.column}
```{r cars, echo = TRUE}
summary(cars)
```
:::
::::::::::::::

Я ожидал, что раздел "Сводка (автомобили)" будет добавлен ниже графика на слайде, но он просто исключен.

1 Ответ

0 голосов
/ 26 мая 2019

Мне не удалось добиться успеха с помощью r-markdown, поэтому я исследовал другие пакеты и нашел «офицера», который смог произвести желаемые результаты.

Он не поддерживает таблицы, которые не являются фреймами данных, поэтому я не смог добавить часть "summary (cars)". Но на двух графиках в качестве примера мне удалось получить результат Result with officer

Используя следующий код 

library(officer)
library(magrittr)
library(ggplot2)
setwd(mydir)

my_plot <- ggplot(data=pressure) +
  geom_point(aes(temperature, pressure))
my_summary <- as.str(summary(cars))

my_pres <- 
  read_pptx("pp_template3.pptx") %>%
  add_slide(layout = "Two Content", master = "Office Theme") %>%
  ph_with_text(type = "title", index = 1, str = "The title") %>%
  ph_with_gg(type = "body", index = 1, value = my_plot) %>%
  ph_with_text(type = "body", index = 2, str = "Some text") %>%
  ph_with_gg(type = "body", index = 3, value = my_plot) %>%
  print(target = "test_pp_officer.pptx") %>%
  invisible()
...