无法使用ReporteRs在pptx中添加绘图（由PLOTLY包创建）

Question

我正在尝试使用ReporteRs来创建一个由R创建的powerpoint。但是当我使用addplot将绘图对象插入pptx时，它会给我一个空幻灯片。我已经完成了ggplot2对象的参考手册：fun = print和额外的x指定了一个绘图对象，但它不起作用。也许ReporteRs包不支持一个情节对象？

这是我的代码：

library(webshot)
library(ReporteRs)
library(magrittr)
library(plotly)
library(MASS)
  
 
myplot=plot_ly(iris,x=~Species,y=~Sepal.Width,type='bar') %>%
  layout(
    title = "Sepal width of each type",
    yaxis2 = list(
      tickfont = list(color = "red"),
      overlaying = "y",
      side = "right",
      title = ""),
    xaxis = list(title=""))

myggplot<-ggplot(iris,aes(x=Species,y=Sepal.Width))+geom_bar(stat="identity")

pptx(title="title") %>%
  addSlide(slide.layout = "Title and Content") %>%
  addPlot(fun=print,x=myplot,vector.graphic=F) %>%
  writeDoc(file = "SepalData.pptx" )

x=myplot和x=myggplot会产生不同的结果。

Answer 1

plotly对象是htmlwidgets，ReporteRs不支持此格式。