R plot - 以pdf格式导出时出现虚假行

Question

关注a previous question（这个与前一个独立），我最终得到了以下好看的（不是吗？！）图片（R代码如下所示）。

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

你有解决方案吗？

---

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"))

Answer 1

尝试直接使用pdf()功能，而不是先使用windows()，然后再导出。

如果这不起作用，可能是由于您的pdf查看器。查看保存到PS或PDF文件的绘图时，请参阅R FAQ，了解为什么会出现不需要的边框，线条或类似网格的瑕疵。