將標題添加到劇情圖例

Question

在下面的示例中，如何在plot_ly中爲R添加圖例標題？

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弄明白。