以具有透明背景的 .png 格式导出绘图

Question

我正在尝试导出 .png 中具有透明背景的简单绘图。我可以导出它，但背景保持白色。

模拟示例

x = c(1, 2, 3)

我试过了

plot (x)

dev.copy (png,'myplot.png', bg = 'transparent')
dev.off()

还有这个

plot (x, bg = 'transparent')

dev.copy (png,'myplot.png')
dev.off()

但都不起作用。

有人可以帮忙吗？

Answer 1

x = c(1, 2, 3)
par(bg=NA)
plot (x)

dev.copy(png,'myplot.png')
dev.off()

Answer 2

与其保存所有参数，不如通过保存“par”的结果来仅保存调用“par”时更改的参数的旧值，如修改后的示例所示：

x = c(1, 2, 3)
old.par <- par(bg=NA)
plot (x)

dev.copy(png,'myplot.png')
dev.off()
par(old.par)

Export plot in .png with transparent background