Что является эквивалентом employee :: ph_location_fullsize () в пакете rvg? - PullRequest
Новая
       52

Что является эквивалентом employee :: ph_location_fullsize () в пакете rvg?

1 голос
/ 01 июля 2019

Я хотел бы экспортировать несколько съедобных графиков и таблиц из R в PowerPoint.

Ниже приведен фрагмент моего кода и пакетов, которые я использую: 

library(ggplot2)
library(dplyr)
library(tidyr)
library(gridExtra)
library(grid)
library(officer)
library(rvg)

read_pptx() %>%
   add_slide(layout = "Title and Content", master = "Office Theme") %>%
   ph_with_vg(code = grid.arrange(plot, table, col = 1), type = "body") %>%
   print(target = path)

В выходных данных экспортированный график и таблица покрывают только 2/3 нижней части слайда. Как я могу изменить свой код, чтобы содержимое, которое я пытаюсь экспортировать, могло занимать весь слайд?

Дополнительный вопрос: Если я хочу добавить заголовок к слайду, как мне указать выравнивание (слева), размер и цвет текста? По умолчанию выравнивание по центру, и я не нашел способ обойти его.

Спасибо.

1 Ответ

2 голосов
/ 01 июля 2019

Используйте ph_location_fullsize(), и оно будет работать. 

library(officer)
library(magrittr)
library(rvg)

read_pptx() %>%
  add_slide(layout = "Title and Content", master = "Office Theme") %>%
  ph_with(value = dml(barplot(1:5)), location = ph_location_fullsize()) %>%
  print(target = "test.pptx")
...