ggplotly does not show point size legend for geom_point

When using ggploty on a geom_point plot the point size legend is not shown.

Minimal example to reproduce:

library(ggplot2)
library(plotly)

p <- ggplot(mtcars, aes(x = wt, 
                        y = mpg, 
                        size = qsec))
p <- p + geom_point()
ggplotly(p)

Expected output from ggplot:

Ouput of ggplotly:

It does, however, show the color legend.

p <- ggplot(mtcars, aes(x = wt, 
                        y = mpg, 
                        color = qsec))
p <- p + geom_point()
ggplotly(p)

Freshly installed R 4.2.1, plotly_4.10.0 and ggplot2_3.3.6.

Bắt đầu bằng cách chạy ví dụ R tối thiểu qua ggplotly và so sánh chú giải kích thước của nó với ví dụ về chú giải màu. Theo dõi quá trình chuyển đổi các thẩm mỹ của geom_point trong ggplotly; công việc được hoàn tất khi biểu đồ được tạo hiển thị chú giải kích thước điểm đồng thời giữ nguyên hành vi hiện có của chú giải màu.