在R中使用win.metafile（）时，删除绘图中的空白/空白

使用以下代码时，如何删除绘图右侧的空白？根本原因可能是什么？ 似乎只有在右侧使用辅助y轴时才会发生这种情况，在本例中需要这样做

library(zoo)
#--------------random data
x.Date <- as.Date(paste(2003, 02, c(1, 3, 7, 9, 14), sep = "-"))
z <- zoo(rnorm(5), x.Date)
z2 <- zoo(rnorm(5, sd = 0.2), x.Date)

#--------------create plot
win.metafile(filename = "Google.wmf", width = 7, height = 7)  

par(mar=c(5,4,4,4)) # custom margins
plot(z, type="l", xlab="Year", lt=1, lwd=1, ylab="Google Trend")
grid(nx = NULL, ny = NULL, col = "lightgray", lty = "dotted",
     lwd = par("lwd"), equilogs = TRUE)
par(new=TRUE)
plot(z2, type="l", ann=FALSE, lt=1, lwd=3, yaxt="n")
axis(4, ylab="Test")  # Here?!
mtext("Index", side=4, line=2) # custom label on the right y-axis

legend("topright", c("z", "z2"), lty=c(1,1), 
       lwd=c(1,3),col=c("black","black"),
       box.col="black",bg="white")
title("Google")
dev.off()

图书馆（动物园）
#--------------随机数据
x、 日期这与R或RStudio无关。我在两台不同的笔记本电脑上遇到了同样的问题（都插在了大型外部显示器上……是你的吗？）

菲克斯来了

菲克斯来了。我使用了标题为“调整显示设置”的“解决方法”部分。基本上，将显示设置“缩放和布局”设置为100%

重新启动以使软件的显示设置生效。
注意：这仅适用于Windows用户。@Pascal有问题吗？如果其他图形文件格式也存在此问题怎么办？简单地说，例如，Linux用户不能使用
win.metafile
函数，因为它不存在。@Pascal Ok，添加了windows标记。谢谢你的评论。我希望这里有一些windows用户使用R…当我尝试使用R版本3.2.0补丁（2015-04-19 r68205）和windows 8.1时，没有明显的空白。请贴一张你得到的图片。