在R的等高线上添加连接点的线

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

# 生成一些示例数据
set.seed(123)
x <- seq(-10, 10, length.out = 100)
y <- seq(-10, 10, length.out = 100)
z <- matrix(runif(10000), nrow = 100)

# 创建数据框
df <- expand.grid(x = x, y = y)
df$z <- as.vector(z)

# 创建等高线图
p <- ggplot(df, aes(x = x, y = y)) +
  geom_contour(aes(z = z), color = "black") +
  theme_minimal()

# 添加连接点的线
points_df <- data.frame(x = c(-5, -2, 0, 2, 5), y = c(0, -2, 0, 2, 0))
p + geom_line(data = points_df, aes(x = x, y = y), color = "red", size = 1.5)

# 显示图形
print(p)