Как добавить сюжет STL в слайд PowerPoint в R? - PullRequest
Новая
       58

Как добавить сюжет STL в слайд PowerPoint в R?

0 голосов
/ 15 октября 2019

У меня проблемы с нанесением STL на слайд PowerPoint в r. Я создаю временной ряд, затем разложенный временной ряд и успешно создал графики с помощью графического пакета plot (). Когда я пытаюсь добавить график на слайд PowerPoint, я преобразую его в DML и затем использую ph_with (), чтобы попытаться построить его. Каждый раз, когда я это делаю, R падает. Смотрите пример кода ниже: 

# setting up 
library(RODBC)
library(dplyr)
library(ggplot2)
library(tidyverse)
library(officer) 
library(magrittr) 
library(lattice) 
library(lubridate) 
library(rvg) 

# open odbc connection
odbc_connection <- odbcConnect("database_name")

# create time series decomp
df <- sqlQuery(odbc_connection,
                 "SELECT * FROM table_name",
                 stringsAsFactors = F,
                 na.strings = c("?", "#"))

ts_test <- ts(df[,2], frequency = 52, start = decimal_date(head(df[,1], 1)))

stl_test <- stl(ts_test, s.window = "periodic")

### PLOTTING IN POWERPOINT

# read the powerpoint template
doc <- read_pptx("template.pptx")

# create dml object 
dml_plot <- dml(code = plot(stl_test))

# add a slide with rvg package
doc <- doc %>% add_slide(layout = "Content - Basic", master = "Content")
doc <- ph_with(doc, dml_plot, location = ph_location_fullsize()) # THIS IS WHERE R CRASHES

print(doc, target = "output.pptx")
...