使用Officer和rvg时，是否可以从代码中删除或阻止插入PowerPoint中的图像后面的背景白色正方形？

Question

使用高官和rvg图形时，我希望我的图像没有背景白色正方形。 这样做的原因是某些函数在顶部留有很多空白，并且经常与标头重叠。我可以删除每一个，但是当进行20个或更多地块时，这很快就会变得乏味。

具体来说，我想将其与示例中在此处使用的metafor中的森林函数一起使用。

删除背景之前。

**

删除背景后。

**

library(officer)
doc <- read_pptx()
doc <- add_slide(doc, "Title and Content", "Office Theme")
doc <- ph_with_vg_at(doc, code = barplot(1:5, col = 2:6),
                     left = 1, top = 2, width = 6, height = 4)


library(metafor)
library(gemtc)
network <-mtc.network(smoking$data.ab)
data(dat.bcg)
plot(network)
res <- rma(ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg, measure="RR",
           slab=paste(author, year, sep=", "), method="REML")
forest(res)
doc <- add_slide(doc, "Title and Content", "Office Theme")
doc <-  ph_with_vg(doc, code = plot(network), type = "body", width = 8, height = 6)
doc <- add_slide(doc, "Title and Content", "Office Theme")
doc <-  ph_with_vg(doc, code = forest(res), type = "body", width = 8, height = 6)

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

Answer 1

现在可以使用最新的rvg更新并将背景设置为“ NA”来实现。

anyplot = dml(code = barplot(1:5, col = 2:6), bg = "NA")

    doc <- read_pptx()
    doc <- add_slide(doc)
    doc <- ph_with(doc, anyplot, location = ph_location_fullsize())

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