如何在具有两个y轴的ggplot中移动限制比例

library(ggplot2)

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

# 创建图表
plot <- ggplot(data, aes(x = x)) +
  geom_line(aes(y = y1, color = "y1")) +
  geom_line(aes(y = y2, color = "y2")) +
  scale_color_manual(values = c("y1" = "red", "y2" = "blue")) +
  theme_bw()

# 设置第一个y轴的限制范围
plot <- plot + ylim(0, 10)

# 设置第一个y轴的比例
plot <- plot + scale_y_continuous(limits = c(0, 10), expand = c(0, 0), name = "y1",
                                  sec.axis = sec_axis(~./10, name = "y1_ratio"))

# 设置第二个y轴的限制范围
plot <- plot + ylim(11, 20)

# 设置第二个y轴的比例
plot <- plot + scale_y_continuous(limits = c(11, 20), expand = c(0, 0), name = "y2",
                                  sec.axis = sec_axis(~.*10, name = "y2_ratio"))

# 移动第一个y轴的限制比例
plot <- plot + coord_cartesian(ylim = c(2, 8))

# 移动第二个y轴的限制比例
plot <- plot + coord_cartesian(ylim = c(13, 17))

plot