如何使用 R 将带有希腊字母的标题添加到 Plotly 图中？

Question

library(plotly)

f <- plot_ly(alpha = 0.5) %>% 
            add_histogram(x=rnorm(1000), 
                          name="Observed",
                          marker=list(color="darkolivegreen")
                         )
            )

f %>% layout(title=expression(theta==0.8%*%hat(theta)))

我在 R 中有一个Plotly直方图，我想向其中添加以下标题。 它不一定是一个标题； 只是一段文字说在图表的空白区域就可以了。 显然Plotly不接受来自plotmath expression()所以上面的代码失败了。 是帽子部分让我真的想把它展示为一个适当的等式； 会清晰很多。 有人可以帮我吗？

---

我也尝试过这个解决方案，因为 Plotly 经常从CSS （教程）中借用。 但是， add_text(x=10, y=10, text="<b>theta = 0.8*theta_hat</b>")确实生成了粗体文本，但是add_text(x=50, y=50, text="<p>&theta</p>"或add_text(x=50, y=50, text="<p>&theta;</p>"不会生成希腊字母。

Answer 1

您可以按照此链接的建议使用 Latex 。

f <- plot_ly(alpha = 0.5) %>% 
            add_histogram(x=rnorm(1000), 
                          name="Observed",
                          marker=list(color="darkolivegreen")
                         )
   
f %>% layout(title=TeX("\\theta = 0.8 \\hat\\theta")) %>% 
      config(mathjax = 'cdn')