在r中，如何控制组合图(plot_grid)中图相对于x轴的比例？

install.packages("ggplot2")
install.packages("gridExtra")

library(ggplot2)
library(gridExtra)

plot1 <- ggplot(data = dataset1, aes(x = x_var, y = y_var)) + 
         geom_point() +
         labs(title = "Plot 1")

plot2 <- ggplot(data = dataset2, aes(x = x_var, y = y_var)) + 
         geom_line() +
         labs(title = "Plot 2")

plot1 <- plot1 + coord_cartesian(xlim = c(0, 10))
plot2 <- plot2 + coord_cartesian(xlim = c(0, 10))

combined_plot <- grid.arrange(plot1, plot2, heights = c(2, 1))

print(combined_plot)