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/

Beginne damit, das bereitgestellte R-Beispiel mit plotly zu reproduzieren und vergleiche die Blasengröße mit der angeforderten Referenzlegende. Als erledigt gilt die Aufgabe, wenn eine Blasengrößenlegende bereitgestellt wird, die die carat-Werte im Diagramm widerspiegelt, wobei das erwartete Verhalten anhand des Beispiels verifiziert wurde.