绘图坐标与 *jpg 图像坐标不匹配

Question

我想使用 ggplot2 包创建的原始绘图坐标为 jpg 图像中的一个椭圆对象创建一个框坐标。在我的例子中：

#Packages
library(ggplot2)
library(ggforce)
library(raster)

#Create a ellipse using ggplot2
ell.sim<-ggplot() +
  geom_ellipse(aes(x0 = 200, y0 = 200, a = 150, b = 50, angle = 0), fill="black") +
  coord_fixed(xlim=c(0,1000),ylim=c(0,1000)) 
ell.sim2 <- ell.sim + theme_void()
plot(ell.sim2)


#Save in JPG format with 96 DPI 
ggsave(
  filename="ellipse_test.jpg",
  plot = ell.sim2,
  width = 10,
  height = 10,
  dpi = 96) 

#Open jpg created with raster
img <- stack("ellipse_test.jpg")
plotRGB(img) 
#

#Extract the ellipse limits for the box coordinate creation
ell.sim.coords <- ggplot_build(ell.sim2)
x1<-(min(ell.sim.coords$data[[1]]$x))
x2<-(max(ell.sim.coords$data[[1]]$x))
y1<-(min(ell.sim.coords$data[[1]]$y))
y2<-(max(ell.sim.coords$data[[1]]$y))
bbx<-c(x1,x1,x2,x2,x1)
bby<-c(y1,y2,y2,y1,y1)
lines(bbx,bby,col="red")
#

但是如果我查看下面的图像绘图，我会发现 jpg 图像中的椭圆和框坐标不匹配：

如果我尝试将 x 和 y 坐标乘以或除以图像的宽度和高度，则不会绘制框坐标。

请问有什么建议吗？

谢谢

Answer 1

您必须在 ggplot 中将原点强制设置为 (0,0)。试试这个：

ell.sim<-ggplot() +
  geom_ellipse(aes(x0 = 200, y0 = 200, a = 150, b = 50, angle = 0), fill="black") +
  coord_fixed(xlim=c(0,1000),ylim=c(0,1000)) + 
  scale_y_continuous(expand = c(0, 0)) +scale_x_continuous(expand = c(0, 0))

ell.sim2 <- ell.sim + theme_void()
plot(ell.sim2)

此外，您需要相应地更改 dpi

ggsave(
  filename="ellipse_test.jpg",
  plot = ell.sim2,
  width = 10,
  height = 10,
  dpi = 100) 

img <- stack("ellipse_test.jpg")
plotRGB(img) 

ell.sim.coords <- ggplot_build(ell.sim2)
x1<-(min(ell.sim.coords$data[[1]]$x))
x2<-(max(ell.sim.coords$data[[1]]$x))
y1<-(min(ell.sim.coords$data[[1]]$y))
y2<-(max(ell.sim.coords$data[[1]]$y))
bbx<-c(x1,x1,x2,x2,x1)
bby<-c(y1,y2,y2,y1,y1)
lines(bbx,bby,col="red")

绘图坐标与 *jpg 图像坐标不匹配

Plot coordinates don't mach with *jpg image coordinates

jpeg

r

image

raster

ggplot2