R - 2D 等高线图与彩色表面

要生成R中的2D等高线图和彩色表面，您可以使用以下步骤：

步骤1: 安装和加载所需的R软件包

install.packages("ggplot2")
install.packages("plot3D")
library(ggplot2)
library(plot3D)

步骤2: 创建数据集

x <- seq(-10, 10, length.out = 100)
y <- seq(-10, 10, length.out = 100)
z <- outer(x, y, function(x, y) sin(sqrt(x^2 + y^2)))
df <- expand.grid(x = x, y = y)
df$z <- as.vector(z)

步骤3: 绘制2D等高线图

ggplot(df, aes(x, y, z = z)) +
  geom_contour() +
  theme_bw()

步骤4: 绘制彩色表面

scatter3D(df$x, df$y, df$z, colvar = df$z, pch = 16, type = "h",
          bty = "g", colkey = list(side = 1, length = 0.5))

以上代码将生成一个2D等高线图和一个彩色表面图。您可以根据需要调整数据集和绘图参数。