Разница в положении легенды между ggplot и ggplotly?

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 он выглядит идеально с заголовком легенды внизу

Но когда я обертываю это с помощью ggpotly (), легенда начинает вести себя по-другому

Моя проблема- Мне нужен первый график в формате ggplotly, но я не могу решить эту проблему, и легенда внизу не работает.Идеи?

Спасибо!

Answer 1

Решено довольно быстро с помощью некоторых экспертов R.

Добавлено это

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

Результат:

Спасибо!