将符号导出为png

Question

我想将R中的绘图符号导出为png图形。但我还没有找到一个完美的方式。

使用

png("symbol.png",width=20, height=20, bg="transparent")
par(mar=c(0,0,0,0))
plot.new()
symbols(1, 1, circles=0.3, bg=2, inches=FALSE, lwd=2, bty="n")
dev.off()

在符号周围创建一个小边框（我希望它是透明的），符号不会填满整个空间。

symbol http://i42.tinypic.com/2s1tytk.png

有更具体的方法吗？

Answer 1

除边距外，还需要消除轴和空间，并关闭轴限制的自动延伸：

par(xaxs="i", yaxs="i")  # 'internal' axis style - no extending
par(xaxt="n", yaxt="n")  # remove axes
par(mgp=c(0,0,0))        # remove room for title and axis labels
par(mar=c(0,0,0,0))      # remove margins
symbols(0,0, circles=1, bg=2, fg=NA, inches=FALSE, bty="n", 
        xlim=c(-1,1), ylim=c(-1,1)) #ensure limits match the size of the circle

fg=NA部分删除符号的前景，该符号是圆的边框。希望这看起来更像你的想法。