使用等值线图的 x、y 轴值不正确

Question

我想使用 ggplot 库创建等高线图。我检查了关于此主题的 documentation，并找到了完成此操作的代码。不幸的是，代码使用存储表面的矩阵 z 的索引，如 x 和 y。如何将其更改为 x 和 y 的实际值？在我生成等高线图的代码下方。

objective_function <- function(vec) {
  basin_function <- function(vec){
    if(all(vec == 0)) {
      return(0)
    } else{
      return(sum(exp(-2.0/vec^2)+sin(vec*pi*2)))
    }
  }
  return(basin_function(vec))
}

objective_function_wrapper <- function(x_vec, y_vec) {
  vec <-rbind(x_vec,y_vec)
  return(apply(vec,2, objective_function))
}

plotSurf <-function(){
    x <- y <-seq(from=-5, to =5,  by=0.1)
    z <- outer(x,y, objective_function_wrapper)
    surf3d <- melt(z)
    names(surf3d) <- c("x", "y", "z")
    p1 <- ggplot(data=surf3d, aes(x=x, y=y, z=z))
    p1 <- p1 + geom_tile(aes(fill=z))+stat_contour()
    print(p1)
}

plotSurf()

Answer 1

您需要用 x- 和 y- 值替换当前位于外部调用的 "melt"-ed 结果中的行号和列号：

x <- y <-seq(from=-5, to =5,  by=0.1)
z <- outer(x,y, objective_function_wrapper)
surf3d <- melt(z)
names(surf3d) <- c("x", "y", "z")
surf3d$x <- rep(x, ncol(z) ); surf3d$y <- rep(y, each=nrow(z) )

使用等值线图的 x、y 轴值不正确

incorrect values of x, y axis using contour plot

r

ggplot2