在 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%。

重啟使軟件的顯示設置生效。