ggplotly only displays one legend

While ggplot produces legends for each aesthetic (other than x & y), after calling ggplotly on the result, only one legend remains (although both titles display).

library(tidyverse)
library(gapminder)
library(plotly)

p <- gapminder %>%
  filter(year == 2007) %>%
  mutate(pop_m = pop / 1000000) %>%
  ggplot(aes(x = gdpPercap, y = lifeExp, colour = continent, size = pop_m, text = country)) +
  geom_point() +
  scale_x_log10(label = scales::comma) +
  scale_size_continuous(label = scales::comma, breaks = c(0, 1, 10, 100, 1000), range = c(1, 10)) +
  labs(x = "GDP per capita ($)", y = "Life expectancy (years)", size = "Population, millions", colour = "Continent")

p

ggplotly(p, tooltip = "text")

I don't think this "disappearing legend" problem is a duplicate amongst the issues I've reviewed, but there is some discussion of this on StackOverflow.

Bắt đầu bằng cách chạy ví dụ R có thể tái lập trong issue và so sánh đầu ra của ggplot và ggplotly, bao gồm cả các chú giải về màu và kích thước. Truy vết đường chuyển đổi ggplotly chịu trách nhiệm cho các chú giải; được xem là hoàn tất khi cả hai chú giải vẫn hiển thị cùng tiêu đề và thang đo sau khi chuyển đổi.