在R中稳定的ggplotGrob定位是可能的吗？(两个缩放比例不同的y轴)

library(ggplot2)
library(grid)
library(cowplot)

# 创建两个数据集
data1 <- data.frame(x = 1:10, y1 = 1:10)
data2 <- data.frame(x = 1:10, y2 = 11:20)

# 创建两个ggplot2图形对象
plot1 <- ggplot(data1, aes(x, y1)) + geom_line()
plot2 <- ggplot(data2, aes(x, y2)) + geom_line()

# 将ggplot2图形对象转换为grid图形对象
grob1 <- ggplotGrob(plot1)
grob2 <- ggplotGrob(plot2)

# 创建两个不同的y轴比例
scale1 <- 1
scale2 <- 0.5

# 调整grid图形对象的布局
grob1 <- gtable_add_cols(grob1, unit(0.5, "null"))
grob2 <- gtable_add_cols(grob2, unit(0.5, "null"))
grob2 <- gtable_add_grob(grob2, grob1, t = 1, l = ncol(grob2) + 1, r = ncol(grob2) + 2, name = "plot1")

# 绘制图形
grid.newpage()
grid.draw(grob2)

# 使用facet_grid函数实现两个缩放比例不同的y轴
plot3 <- ggplot(data1, aes(x, y1)) + geom_line() +
  facet_grid(. ~ ., scales = "free_y")
plot4 <- ggplot(data2, aes(x, y2)) + geom_line() +
  facet_grid(. ~ ., scales = "free_y")

# 绘制图形
plot_grid(plot3, plot4, ncol = 1)