R绘图-以pdf格式导出时会出现伪线

接下来（虽然这一张独立于前一张），我最终得到了下面的漂亮（不是吗？！）图片（R代码如下所示）

然而，当我以pdf格式导出图片时，质量有点令人失望；假白线出现在右上角：(

你有解决办法吗

---

库（gplots）
f尝试直接使用
pdf（）
函数，而不是先使用
windows（）
然后再导出

如果这不起作用，可能是因为您的pdf查看器。请参阅“查看保存到PS或pdf文件的绘图时为什么会出现不需要的边框、线条或网格状瑕疵”的说明。
相关问题：#JeanVAdams:它不会更改。是否适合您？可能是因为您的pdf查看器。请参阅“为什么会出现不需要的边框、线条或网格状瑕疵”的说明t查看保存到PS或PDF文件中的绘图时是否会出现问题？感谢链接。我将很快尝试建议的解决方案。禁用Acrobat Reader作品中的线条艺术平滑：）谢谢！如果你用链接编辑你的答案，我会接受。
library(gplots)

f <- function(S1, S2, theta)
{
  num <- (S1^(-theta) + S2^(-theta) - 1)^(-1 / theta)
  denom <- S1 * S2
  return(num / denom)
}

S1 <- S2 <- seq(0.05, 0.95, 0.01)
z <- outer(S1, S2, FUN=f, theta=2/3)
levels=seq(1.1, 8, length.out=25)

windows(5,5)
par(mgp=c(2, 0.5, 0))
plot(NA,
     xlim=rev(c(0, 1)), xlab=expression(S[1](t)), xaxt="n",
     ylim=rev(c(0, 1)), ylab="", yaxt="n",
     frame=FALSE)
mtext(text=bquote(S[2](t)), side=2, line=1.8, las=1) 
axis(1, c(1, 0), label=TRUE, tcl=-0.5)
axis(1, seq(1, 0, -0.25), label=FALSE, tcl=-0.25)
axis(2, c(1, 0), label=TRUE, tcl=-0.5)
axis(2, seq(1, 0, -0.25), label=FALSE, tcl=-0.25)
par(mgp=c(3, 1, 0))  

.filled.contour(x=S1, y=S2, z=z,
                levels=levels,
                col=colorpanel(length(levels), "gray95", "gray20", "black"))