Используйте plotmath, чтобы написать верхний индекс в возведенной в скобки скобке, например, по Пуассоноподобному мультипликативному уравнению

Question

Как я могу использовать возможности plotmath, чтобы добавить мультипликативное пуассоново-подобное уравнение к моему графику? Или, учитывая, что я действительно близок, как я могу написать это уравнение без . в середине показателя степени? Я попытался phantom, но это не сработало (или я не правильно его использую).

Это используется в циклическом процессе для создания множества графиков, поэтому ключевым моментом является возможность поменять числа и метки.

#   ---- Covariate names.
covar1 <- "var1"
covar2 <- "var2"

#   ---- Some numbers.  
beta0 <- 2.654
beta1 <- -0.084
beta2 <- 1.123

#   ---- A boring plot.  
plot(seq(0,100,1),seq(0,100,1))

#   ---- How to do this without the %.% ?
text(60,20,bquote(paste("Eqn: ","y = ",.(beta0),plain(e)^{.(beta1) %.% "X" [.(covar1)] + .(beta2) %.% "X" [.(covar2)] })))

Это должно быть уравнение: y = 2.654e ^ {- 0.084X_var1 + 1.123X_var2}.

Как мне избавиться от точки?

Answer 1

Придерживаясь этого, вот один способ - воспроизвести paste внутри фигурных скобок.

#   ---- A boring plot.  
plot(seq(0,100,1),seq(0,100,1))

#   ---- How to do this.
text(60,20,bquote(paste("Eqn: ","y = ",.(beta0),plain(e)^{paste(.(beta1),X[.(covar1)] + .(beta2),X[.(covar2)])})))