将点放置在fill.contour3图上的不同位置

Question

我正在使用filled.contour3中描述的方式使用here函数。我的代码是这样的

  plot.new()
  par(mfrow = c(3,3))
  pop_x <- 3.0
  pop_y <- 6.0
  for (i in 1:9){
    b_x <- calc_b_x(i)
    b_y <- calc_b_y(i)
    x <- calc_x(i)
    y <- calc_y(i)
    z <- calc_z(i)
    filled.contour3(x, y, z)
    text(x = pop_x, y = pop_y , 'x', cex = 1.5, font = 2)
    text(x = b_x, y = b_y , 'a', cex = 1.5, font = 2)
  }

这成功地在3行中绘制了9个图形。它还在每个图形上的正确位置放置一个“ x”。但是，第二个文本调用最终在每个图上放置9个“ a”，每个图都在正确的位置。但是我只希望每个图上的一个“ a”处于该图的正确位置。我该如何解决？

Answer 1

事实证明，filled.contour3没问题。 b_x和b_y错误地是向量，而不是标量，因此一次调用

text(x = b_x, y = b_y , 'a', cex = 1.5, font = 2)

产生了很多分。