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.

首先运行 issue 中可复现的 R 示例，并比较 ggplot 和 ggplotly 的输出，包括颜色和大小图例。跟踪负责图例的 ggplotly 转换路径；转换后两个图例仍保持可见并带有各自的标题和刻度，即表示完成。