使用带有自由轴的 facet_grid 创建大小相同以厘米为单位！geom_rect

如何解决使用带有自由轴的 facet_grid 创建大小相同以厘米为单位！geom_rect

这是我的第一篇文章，如果有什么不妥请告诉我。

当我有一个带有自由轴的 facet_grid 时，我在创建一个同样大小（以厘米为单位！）geom_rect 时遇到了一个有点愚蠢的问题。请参阅以下示例代码，其中灰色 geom_rects 的大小不同（显然是因为我已指定）：

data("mtcars")
library("tidyverse")

mtcars$mpg <- mtcars$mpg + 1000
mtcars <- pivot_longer(mtcars,cols = c(mpg,carb),names_to = "Measure",values_to = "Value")

p <- ggplot() +
  geom_point(data = mtcars,mapping = aes(x = cyl,y = Value),colour = "mediumvioletred",size=3,shape=1) +
  facet_grid(Measure ~ cyl,scales = "free")
p

Boxes <- data.frame(Measure = c("carb","mpg"),start = c(4,1020),end = c(6,1030))

p <- ggplot() +
  geom_point(data = mtcars,shape=1) +
  geom_rect(data = Boxes,mapping = aes(xmin=-Inf,xmax=Inf,ymin=start,ymax=end),alpha=0.1) +
  facet_grid(Measure ~ cyl,scales = "free")
p

ggsave(plot = p,filename = "test.png")

The plot that happens with the above code

我希望 geom_rects 的大小由它们在图中的最终大小定义，而不是 y 轴。我几乎可以肯定这是不可能的，但也许这里有人有想法/解决方案？ 提前致谢！