free with fixed aspect ratio plot failed

[Yunuuuu]

knitr::opts_knit$set(upload.fun = identity)
library(patchwork)
library(ggplot2)
p4 <- ggplot(mtcars) +
  geom_bar(aes(gear)) +
  facet_wrap(~cyl) +
  ggtitle("Plot 4")

p_f <- ggplot(mtcars) +
  geom_point(aes(hp, disp)) +
  coord_fixed() +
  ggtitle("Fixed Aspect")
wrap_plots(free(p_f, "panel", "b"), p4)

^{Created on 2024-09-04 with reprex v2.1.0}
~
~
~
~

What I expect is something like this:

[thomasp85]

Thanks for all these tests and reports