Question

我试图使用Officer包来生成包含R基本图形的PowerPoint文档，该图形最好不是固定分辨率的，而是可编辑的矢量图形。这是我一直在尝试的方法，但是生成的PowerPoint文档仍然缺少该图（已创建中间.dml并包含一些XML）。

library (officer)
library (rvg)

# write an R base graphics plot to "plot.dml"
dml_pptx ("plot.dml")
x = (-300:300)/100
plot (x,sin(x),type="l",col="blue")
dev.off ()

# create a PowerPoint document
doc = read_pptx ()
doc = add_slide (doc,layout ="Title and Content",master="Office Theme")
ph_with (doc,external_img (src="plot.dml"),location=ph_location_type(type="body"))
print (doc,"example.pptx")

当我改为通过jpeg ("plot.jpg")生成图形文件，然后将该文件包含在演示文稿中时，它可以工作，但是我想避免使用固定分辨率，并在PowerPoint中编辑该图。

另一种策略可能是export软件包，

library (export)

x = (-300:300)/100
plot (x,sin(x),type="l",col="blue")

graph2ppt (file="example2.pptx",width=6,height=6)

后者以交互方式工作，但是在脚本中失败。我想念什么？

预先感谢您的帮助。

HPF

Answer 1

您需要使用函数code的参数dml并提供一个包含绘图指令的表达式：

library(rvg)
library(officer)
library(magrittr)
read_pptx() %>% 
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with(dml(code = {
    x = (-300:300)/100
    plot (x,sin(x),type="l",col="blue")
  }), location = ph_location_type(type = "body")) %>% 
  print(target = "demo_rvg.pptx")

使用rvg将R基本图形导出到PowerPoint

1 个答案: