r - 为 plotly 图例添加标题

Question

在以下示例中，我如何为 R 的 plot_ly 中的图例添加标题？

mtcars %>%   plot_ly(x = ~disp, y = ~mpg, color = ~factor(cyl), size = ~wt) %>%   add_markers(
    hoverinfo = "text",
    text = ~paste("Displacement = ", disp, "\nMiles Per Gallon = ", mpg)   ) %>%   layout(title ="Custom Hover Text")

谢谢

Answer 1

我知道的唯一方法是使用注释并将其添加到绘图中。像这样:

legendtitle <- list(yref='paper',xref="paper",y=1.05,x=1.1, text="Cylinders",showarrow=F)

mtcars %>%  plot_ly(x = ~disp, y = ~mpg, color = ~factor(cyl), size = ~wt) %>%   
  add_markers(  hoverinfo = "text",
                text = ~paste("Displacement=",disp, "\nMiles Per Gallon = ", mpg)) %>%   
  layout(title ="Custom Hover Text", annotations=legendtitle )

产量:



不过放置图例标题有点棘手，不确定这个放置是否总是有效。

另一种方法当然是使用 ggplot 和 ggplotly，然后让 ggplot 弄清楚。