r - 图例中的图例标题

Question

如何在plotly中为图例指定标题？我有一个堆叠的条形图，可以绘制不同的持续时间，例如0-10、11-20。我希望图例标题说“持续时间”。

Answer 1

指定图例标题的最简单方法是通过ggplot进行设置，并让plotly从相应的对象中读取它:

library( plotly )

gg <- ggplot( mtcars, aes( x=mpg, y=wt, color=factor(vs) ) ) +
  geom_point() + labs( color = "MyTitle" )
ggplotly( gg )

但是，问题在于 plotly将图例标题转换为注释，该注释在此过程中与图例断开连接。在我的浏览器中，它还与右上角的 plotly菜单重叠:



要解决此问题，您可以从 ggplot对象中完全删除图例标题，并手动添加注释:

gg <- ggplot( mtcars, aes( x=mpg, y=wt, color=factor(vs) ) ) +
  geom_point() + theme( legend.title = element_blank() )
ggplotly( gg ) %>%
  add_annotations( text="MyTitle", xref="paper", yref="paper",
                  x=1.02, xanchor="left",
                  y=0.8, yanchor="bottom",    # Same y as legend below
                  legendtitle=TRUE, showarrow=FALSE ) %>%
  layout( legend=list(y=0.8, yanchor="top" ) )

请注意，标题和图例都使用了相同的 y坐标，但是前者固定在底部，而后者固定在顶部。这样可以防止标题与图例“断开连接”。最终结果如下所示: