强制添加的图(具有不同轴)在R中具有相同的原点

# 安装和加载必要的包
install.packages("ggplot2")
library(ggplot2)

# 创建数据
x <- 1:10
y1 <- x^2
y2 <- x^3

# 创建第一个图形
p1 <- ggplot() +
  geom_line(aes(x, y1), color = "blue") +
  labs(title = "图形1")

# 创建第二个图形
p2 <- ggplot() +
  geom_line(aes(x, y2), color = "red") +
  labs(title = "图形2")

# 设置相同的原点
p1 <- p1 + coord_cartesian(xlim = c(1, 10), ylim = c(0, max(y1, y2)))
p2 <- p2 + coord_cartesian(xlim = c(1, 10), ylim = c(0, max(y1, y2)))

# 绘制图形
gridExtra::grid.arrange(p1, p2, nrow = 1)