Размещайте точки в разных местах на заполненных участках.

Question

Я использую функцию fill.contour3 в манере, описанной здесь . Мой код такой

  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)
  }

Это успешно строит 9 графиков в 3 рядах. Он также ставит один «х» на каждом графике в правильном положении. Однако второй текстовый вызов заканчивает тем, что ставит 9 'a на каждом графике, каждый в правильном положении. Но я хочу только одну букву «а» на каждом графике, в правильном положении для этого графика. Как мне это исправить?

Answer 1

Оказывается, с filled.contour3 проблем не было. b_x и b_y были ошибочными векторами, а не скалярами, поэтому один вызов

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

принес много очков.