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

Question

在使用以下代码时，如何删除绘图右侧的空白处？导致这种情况的根本原因可能是什么？这似乎只有当我在右侧使用第二个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()

如果我调整绘图的宽度，空白区域将保持不变。我还尝试更改自定义边距，但没有成功。

第二个问题(不太重要)：如何用z2 (完成)和z线覆盖网格线？换句话说，如何将绘制的线条带到“前面”？从理论上讲，我需要首先绘制网格线，但我不能将它们“放”在z的第一个图之前。

编辑/评论:我刚刚发现，如果我使用另一台PC，问题不会发生……以下是原始图像(如果我用我的NB计算绘图)：

​

​

Answer 1

这与R无关，也与RStudio无关。我在两台不同的笔记本电脑上也遇到了同样的问题(都是连接到大型外部显示器上的……是你的吗？)

Windows 7修复在这里。

Windows 10修复在这里。我使用了标题为“调整显示设置”的“解决办法”部分。基本上，将你的显示设置“缩放和布局”设置为100%。

重新启动以使显示设置对软件生效。