plotmath中的表达式及其对应的公式如图：

例： formula = expression(italic(Prob) == bgroup("(",atop(n, x),")")%%p[1]^x%%(1-p[1])^(n-x)) 把上述formula插入到plot中，显示如下：

虽然比不上LaTex中公式那么漂亮，但在R中无需LaTex支持，这也是不错的选择。