Equal height for 2 plots in ggarrange

Question

For simplicity here is a runnable code with fake data that produces the issue exactly. The plots,

data1 <- data.frame(
  V1=replicate(18, {sample(1:18, 1)}