我在 png 图像文件上设置了一个带有透明叠加散点图的漂亮图。我希望我的绘图窗口和我的 pdf 输出与我的 png-962x745 的大小完全相同。

然而,即使在关闭轴、注释和框架之后,R 仍然在图像周围留下边框。

这可以用一个简单的例子来说明:这个图显示了两个点,它们应该在图的最外端。但他们不是:

plot(rbind(c(1,745),c(962,1)),bty ="n",axes=F,frame.plot=F, xaxt='n', ann=FALSE, yaxt='n', asp=745/962)

并与 PDF 设备一起:
pdf(width=10.02,height=7.76)
par(mar=rep(0, 4),mai=rep(0, 4), xpd = NA)
plot(rbind(c(1,745),c(962,1)),bty ="n",axes=F,frame.plot=F, xaxt='n', ann=FALSE, yaxt='n', asp=745/962)
dev.off()

最佳答案

您还可以使用 grid 图形来避免那些默认轴等。

library(jpeg)
library(grid)

d = data.frame(x=rnorm(100, 10), y=rnorm(100, -100))
utils::download.file("http://i.imgur.com/5MexD.jpg", "img.jpg")
img = readJPEG("img.jpg")


w <- convertUnit(unit(ncol(img),"pt"), "in", value=TRUE)
h <- convertUnit(unit(nrow(img),"pt"), "in", value=TRUE)

dev.new(width=w, height=h)
grid.raster(img, width=unit(1,"npc"), height=unit(1,"npc"))

 v = dataViewport(xData=d$x, yData=d$y)
 grid.points(d$x,d$y, default.units="native", vp=v,
             gp=gpar(col="white"), pch=8)

关于r - 完全没有边界的绘图,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/9332170/

10-12 16:33