R ggplot -计算多条曲线和geom_hline的截距

library(ggplot2)

# 准备数据
data <- data.frame(x = c(1, 2, 3, 4, 5),
                   y1 = c(2, 4, 6, 8, 10),
                   y2 = c(1, 3, 5, 7, 9),
                   hline = c(4, 6, 8, 10, 12))

# 绘制曲线和水平线
ggplot(data) +
  geom_line(aes(x, y = y1, color = "Curve 1")) +
  geom_line(aes(x, y = y2, color = "Curve 2")) +
  geom_hline(aes(yintercept = hline, color = "Horizontal Line")) +
  labs(color = "Legend") +
  theme_minimal()

# 计算截距
slope1 <- 2  # 曲线1的斜率
intercept1 <- 0  # 曲线1的截距
slope2 <- 1  # 曲线2的斜率
intercept2 <- 1  # 曲线2的截距

intersection <- intersect(slope1, intercept1, slope2, intercept2)
intercept <- intersection$x

print(paste("The intercept is", intercept))