如何修复文本的位置以跟随在R中绘制的对象

Question

我想知道如何在动态变化的情节中修复一段text()总是出现在括号（或points()等）之上？ 换句话说，我应该如何确定“x”和“y”以使该文本跟随括号（或{ {1}}等）情节中的任何地方？ （见下面的R代码）

举个例子，假设我在下面的图中有一个括号，无论情节如何变化，其位置（xs和ys）将始终是已知的。在这里，我怎样才能将points()的位置固定在此括号上方（如图中当前所示），无论括号位于何处？

PS 首先，我认为我可以取括号的“y”，然后将text()的“y”设为:( “y”括号的支架+ .1 *“y”）。但鉴于绘图可以动态变化（即绘图连接到函数），任何绘图中 + .1 *“y”的括号给出了不具有不同位置的文本保证文本和支架之间的距离始终保持不变。

这是一段R代码：

text()

Answer 1

plot(1:10, ty = 'n')
x1 = 4
y1 = 6
x2 = 8
y2 = 6
h = 1 #Or some variation of h = sqrt( (x2-x1)^2 + (y2-y1)^2 )/4
brack <- brackets(x1 = x1, y1 = y1, x2 = x2, y2 = y2, h = h, ticks = .5, curvature = .5, 
                      type=1, col = "blue", 
                      lwd = 2, xpd = T)

text(x = (x1+x2)/2, y = (y1+h), "Equivalent to ZERO", font = 2, pos = 3)
#pos = 3 means the text will be on top of x and y