Построение графика ggplot2 на слайде Power Point заданного размера — R

Мне удалось сначала сохранить график ggplot2 в формате .png, а затем вызвать этот файл в ph_with_img. Немного круговой, но это работает. Вы также можете сохранить график как ?tempfile, а затем ?unlink, но мне нравится иметь папку с моими графиками.

ggplot() +
  (code for my ggplot)

ggsave("../thisplot.png", width = 6, height = 4)

read_pptx() %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_img(src = "../thisplot.png", width = 6, height = 4, type = "body") %>% 
  print(target = t)

Я только что сделал новый пакет export, построенный поверх officer, который легко позволяет сделать это с помощью команды graph2ppt() и который прекрасно экспортирует в векторный формат, а не в растровый в другом ответе, опубликованном выше, например.

install.packages("export")
library(export)
library(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species, 
      size = Petal.Width, alpha = I(0.7))     
graph2ppt(file="plots.pptx", width=6, height=5) 

Ниже показано, как создать и экспортировать объект ggplot в виде векторной графики непосредственно в PowerPoint с помощью officer 0.3.11. Ключ в том, чтобы использовать ph_with с location = ph_location. Это позволяет вам установить положение и размер объекта.

library(ggplot2)
library(dplyr, warn.conflicts = FALSE)
library(officer)
library(rvg)

t <- "example.pptx"

fig_gg <- ggplot(mtcars, aes(x=wt, y=mpg)) +
  geom_point()

fig_vg <- dml(ggobj = fig_gg)

read_pptx() %>% 
  add_slide(layout = "Title Only", master = "Office Theme") %>% 
  ph_with(fig_vg, location = ph_location(left = .5, top = 1.3, height = 5, width = 5)) %>% 
  print(t)

^{Создана 12 июня 2020 г. в пакете reprex (v0.3.0)}