3

我从通过 R 生成的 pdf 中得到虚假的白色垂直/水平线。我使用的是 Windows 7，R 32bit 2.15.2。这以前在论坛中出现过，但我找不到任何对我有用的修复程序。不同版本的 R 给出相同的结果，以及其他 windows 框。开罗包裹没有帮助。我需要一个 pdf，因为我在乳胶文档中使用了这个数字（eps 也可以，虽然它会有点烦人）。这是一个MWE：

library(MASS)
data.x <- runif(50);
data.v1 <- runif(50);

x <- matrix(rep(0:50/50,51),nrow=51,ncol=51);
y <- t(x);
theta <- 50;
x0 = 0.2; y0 = 0.5;
z <- abs(sqrt(((x-x0)*cos(theta)+(y-y0)*sin(theta))^2 + ((y-y0)*cos(theta)+(x-    x0)*sin(theta))^2)-1);
Palette <- colorRampPalette(c("lightgrey","black"),
                           interpolate="spline" )
Levels <- (0.1*(0:10))
pt.color <- "black";

filled.contour(x=0:50/50,y=0:50/50,z=z,levels=Levels,
              xlim=c(0,1),ylim=c(0,1),
              color.palette=Palette, xlab="X",ylab="V",
 plot.axes={axis(1);axis(2);
            points(data.x,data.v1,pch=19,col=pt.color, cex=.5);
            contour(x=0:50/50,y=0:50/50,z=z,levels=Levels,labcex=1.5,
                    col=grey(0.5),lwd=1.5,add=TRUE, labels="  ", method="flattest"
                   );
            contour(x=0:50/50,y=0:50/50,z=z,levels=Levels,lwd=1.5,labcex=1.5,
lty=0,col=grey(0.2),add=TRUE, method="flattest"
                   );
           }
)

dev.copy(pdf,file="contour_see_diff.pdf")
dev.off()
4

0 回答 0