将公式并置到r中的图形上

Question

这是我到目前为止所拥有的：

plot(c(-2,2), c(0,4))
text(0, 2, labels= expression(EMA[1]~ "=" ~ ((P[i]*alpha)+ (EMA[i-1]*(1-alpha)))))

我需要它看起来像附加的公式。我觉得我需要使用bquote或类似的东西，但不能让它在上下文中工作。

Answer 1

可能是这样的：

plot(c(-2,2), c(0,4))
LABEL <- expression(EMA[1] == (P[i] %*% alpha) + (EMA[i-1] %*% (1 - alpha))
                    ~~ plain(where) ~~ alpha == frac(2, 1 + 30))
text(0, 2, labels = LABEL)