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.

Führe zunächst das minimale R-Beispiel mit ggplotly aus und vergleiche seine Größenlegende mit dem Beispiel für die Farblegende. Verfolge die ggplotly-Konvertierung der geom_point-Ästhetiken; die Aufgabe ist erledigt, wenn das generierte Diagramm eine Legende für die Punktgröße anzeigt und dabei das bestehende Verhalten der Farblegende beibehält.