Feature Request: Size Legend Bubble Chart

I am not sure whether this is the right forum to address the issue. Nevertheless, after quite some searching, I was unsuccessful to figure out a way to add a legend to a bubble chart, that reflects information on the bubble size in a chart like the one below.

library(plotly)
d <- diamonds[sample(nrow(diamonds), 1000), ]
plot_ly(d, x = carat, y = price, size = carat, mode = "markers")

I am looking for something a similar chart legend like in the picture attached.

If I am off topic here, please don´t hesitate to close the issue - a hint to a solution would be highly appreciated, though.

Best
Michael

image source: https://visage.co/data-visualization-101-bubble-charts/

Commencez par reproduire l’exemple R fourni avec plotly et comparez la taille de ses bulles à la légende de référence demandée. La tâche est considérée comme terminée lorsqu’une légende de taille des bulles reflétant les valeurs de carat du graphique est fournie, avec le comportement attendu vérifié par rapport à l’exemple.