ggplot 和 ggplotly 之間圖例 position 的區別？

Question

我發現 ggplot 和 ggplotly 中的同一張圖表之間有一個有趣而奇怪的區別

income_gap_chart <- ggplot(income_gap, aes(x = Country, y = Percent, fill = Income)) + 
geom_bar(position = "dodge", stat = "identity") +
scale_fill_brewer(palette = "Set1") +
coord_flip() +
theme(axis.title.y = element_blank()) +
scale_y_continuous(limits = c(0, 100)) +
theme_tufte() +
theme(axis.title.y = element_blank()) +
theme(legend.position = "bottom")

對於 ggplot 它看起來很完美，底部有一個圖例標題

但是當我用 ggplotly() 包裝它時，圖例開始表現不同

我的問題 - 我想要第一個 ggplotly 格式的圖表，但無法解決這個問題，底部的圖例不起作用。 想法？

謝謝！

Answer 1

在一些 R 專家的幫助下很快解決了。

添加了這個

ggplotly(income_gap_chart) %>% layout(legend = list(orientation = "h", x = 0.4, y = -0.2))

結果：

謝謝！

Answer 2

正如評論中指出的那樣，該解決方案似乎刪除了圖例標題。 這很容易通過在layout()中包含title =...來解決：

diamonds_chart <- ggplot(diamonds, aes(x = cut, y = carat, fill = color)) + 
  geom_bar(position = "dodge", stat = "identity")
  
diamonds_chart %>% 
  ggplotly %>% 
  layout(
    legend = list(
      orientation = 'h', x = 0.3, y = -0.1, 
      title = list(text = 'My legend title')
      )
    )