Plot too Wide in Patchwork (R)

I've been struggling to understand the patchwork package in R. The barchart on the right of the plot should be much thinner, like the one on top of the scatter plot. Below is my code. Any suggestions?

Thank you!

(fac1_trajectory_bp + coord_flip()) / (p_bm) +  plot_layout(height = c(0.125,1)) |   (guide_area() / fac1_trajectory_bp) +  plot_layout(heights = c(0.125,1), widths = c(0.125,1))