4

我创建了巴西的合唱团。将绘图保存为 .png 时，绘图的上部和下部会丢失（覆盖）。这是保存情节的线条。

plot.new()
par(omi=c(0,0,0,0), mgp=c(0,0,0),mar=c(0,0,0,0) , family = "D")
par(mfrow=c(1,1),cex=1,cex.lab = 0.75,cex.main=0.2,cex.axis=0.2)
png(filename = "map_cons_g.png", width = 6,height = 6, units = "in", res = 600)
plot(c(-75,-35),c(0,-30),type="n",axes=FALSE,xlab="",ylab="",asp=1.2)
plot(Brazil,col=cols[Brazil$Cons.g_ri],add=TRUE,border="black",lwd=0.5)
dev.off()

为了保存绘图而不丢失地图的上部和下部，我必须更改坐标以在底部和顶部添加空白（即用 c(5,-33) 替换 c(0,-30) ):

plot.new()
par(omi=c(0,0,0,0), mgp=c(0,0,0),mar=c(0,0,0,0) , family = "D")
par(mfrow=c(1,1),cex=1,cex.lab = 0.75,cex.main=0.2,cex.axis=0.2)
png(filename = "map_cons_g.png", width = 6,height = 6, units = "in", res = 600)
plot(c(-75,-35),c(5,-33),type="n",axes=FALSE,xlab="",ylab="",asp=1.2)
plot(Brazil,col=cols[Brazil$Cons.g_ri],add=TRUE,border="black",lwd=0.5)
dev.off()

这在某种意义上是有效的，我可以看到完整的地图，但地图并没有使用图中的所有可用区域。保存绘图时，图的上下部分似乎有一些边距。我从来没有遇到过其他类型的情节的问题。

抱歉，我没有足够的“声誉”来发布图片来向您展示地图的外观。

知道如何解决这个问题吗？

编辑：

下面的评论让我更深入地研究了这个问题，我终于找到了解决办法。我很抱歉，因为我现在意识到我不了解问题的根源，因此没有尽我所能解释，

似乎 png 重置了绘图的外边距。因此，即使我设置了 omi=c(0,0,0,0)，这些值也不是 png 命令在保存绘图时使用的值。解决方案是在调用 png 后设置绘图参数，以便保存图形。

plot.new()
png(filename = "map_cons_g.png", width = 6,height = 6, units = "in", res = 600)
par(omi=c(0,0,0,0), mgp=c(0,0,0),mar=c(0,0,0,0) , family = "D")
par(mfrow=c(1,1),cex=1,cex.lab = 0.75,cex.main=0.2,cex.axis=0.2)
plot(c(-75,-35),c(5,-33),type="n",axes=FALSE,xlab="",ylab="",asp=1.2)
plot(Brazil,col=cols[Brazil$Cons.g_ri],add=TRUE,border="black",lwd=0.5)
dev.off()
4

1 回答 1

2

来自详细信息?par：

每个设备都有自己的一组图形参数。

因此，即使我在par( omi = c(0,0,0,0)) 中设置了绘图的外边距，但在保存绘图时，这些值被 in 的参数覆盖png。

解决方案是在调用par 后设置边距参数png

plot.new()

# first open png device...
png(filename = "map_cons_g.png", width = 6,height = 6, units = "in", res = 600)

# ...then set par
par(omi = c(0,0,0,0), mgp = c(0,0,0), mar = c(0,0,0,0), family = "D")
par(mfrow = c(1, 1), cex = 1, cex.lab = 0.75, cex.main = 0.2, cex.axis = 0.2)

plot(c(-75, -35), c(5, -33),  type = "n", axes = FALSE, xlab = "", ylab = "", asp = 1.2)
plot(Brazil, col = cols[Brazil$Cons.g_ri], add = TRUE, border = "black", lwd = 0.5)
dev.off()
于 2019-09-25T00:50:16.887 回答