有关R语言制作ppt的问题
0
我在用R语言制作ppt的时候，如果用系统自带的空白模板可以绘图，但用自己制作的模板无法绘图，求大神解答
系统自带模板 （成功）
代码：
library(ReporteRs)
library(ggplot2)
doc=pptx()
slide.layouts(doc)
doc=addSlide(doc,slide.layout="Title and Content")
doc = addPlot( doc, fun = function() barplot( 1:6, col = 2:7),
vector.graphic = TRUE, width = 5, height = 4 )
writeDoc(doc,'misson_success.pptx')
绘出图形为：
自制模板（失败）
代码：
library(ReporteRs)
library(ggplot2)
doc=pptx()
slide.layouts(doc)
doc=addSlide(doc,slide.layout="内容与标题")
doc = addPlot( doc, fun = function() barplot( 1:6, col = 2:7),
vector.graphic = TRUE, width = 5, height = 4 )
writeDoc(doc,file="misson_failed.pptx")
错误为：
没有找到相关结果
重要提示：提问者不能发表回复，可以通过评论与回答者沟通，沟通后可以通过编辑功能完善问题描述，以便后续其他人能够更容易理解问题.
5 个回复
marxsong 2016-09-19 回答
赞同来自: MarsJ 、梁勇
试下这个，例子里的：
library(ReporteRs)
library(ggplot2)
doc=pptx(template = "C:/Users/Public/Documents/doc.pptx")
slide.layouts(doc)
doc=addSlide(doc,slide.layout="标题和内容")
is_sunos <- tolower(Sys.info()[["sysname"]]) == "sunos"
if( !is_sunos ){
doc = addPlot( doc,
fun = function() barplot( 1:6, col = 2:7),
vector.graphic = FALSE,
offx = 7, offy = 0,
width = 3, height = 2
)
}
writeDoc(doc,file="misson_failed.pptx")
MGES 2016-08-16 回答
赞同来自:
dj123jary 2016-08-18 回答
赞同来自:
Robin_Li - R&Python机器学习讲师 2016-08-24 回答
赞同来自:
结实 - 始终在寻找数据的落脚点与发光点。还好，让我赶上了这个大数据时代，感恩中前行~！在工作中学习，在学习中分享，在分享中传递，在传递中提升。come on。我是结实，我来了。 2016-09-18 回答
赞同来自: