以透明背景导出.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)