我正在尝试使用 ReporteRs 通过 R 创建一个 powerpoint。但是当我使用addplot
将 plotly 对象插入 pptx 时,它给了我一张空白幻灯片。我已经按照参考手册对 ggplot2 对象的说明完成了:fun = print
并且额外x
指定了一个绘图对象,但它不起作用。ReporteRs 包可能不支持 plotly 对象?
这是我的代码:
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
给出不同的结果。