在Filled.Contour3绘图上的不同位置放置点

我正在使用 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'S,每个位于正确的位置。但我只想在每个图上有一个“A”,在该图的正确位置。我该怎么解决这个问题?