如何使用 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() 所以上面的代码失败了。是 hat 部分让我真的很想将它展示为一个适当的方程式；会更清楚。有人可以帮我吗？

我也试过this solution as Plotly often borrows from CSS (tutorial）。但是，add_text(x=10, y=10, text="theta = 0.8*theta_hat") 确实生成了粗体文本，但是 add_text(x=50, y=50, text="&theta" 或 add_text(x=50, y=50, text="θ" 没有生成希腊字母。

Answer 1

您可以按照 link 中的建议使用 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')

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

How to add a title with greek letters to a Plotly graph with R?

r

plot

plotly

r-plotly

plotmath