如何将 \bar{x} 添加到 R 图

Question

有一个点x=3.1234,y=5.6789，命令points(x,y)将该点添加到绘图中。我想在情节的这一点上添加一些符号。

版本 1：(3.12,5.68)

版本 2：line1 ~ $(\bar(x),\bar(y))$, line2 ~ $\bar(x)=3.1234, \bar(y)=5.6789$

也就是说，如果数字不是太长或者我们可以用固定数字显示它们，那么我希望直接数字显示在括号内。否则我希望它分两行显示，第一行说 "the coordinate is mean of x and mean of y" 而第二行解释这两种方式的 excat 值。

我尝试了命令的变体：text(x,y-0.2,bquote(list(.(x) , .(y)))); text(x,y-0.2,bquote(list(.(bar(x)) , .(bar(y))))); 等

但其中 none 效果很好。如果有人可以播放上述格式的至少一个版本，我将不胜感激。

Answer 1

我不确定显示多行注释的最佳方式。如果你坚持单行，你可以获得一个非常易读的注释：

xs = ys = 1:10 
x = 3.2
y = 4.6
plot(xs, ys)
text(x, y - 0.2, 
     bquote("(" * bar(x) * " = " * .(x) * ", " *  bar(y) * " = " * .(y) * ")")
)

制作中：

How to add \bar{x} to an R plot