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/

Bắt đầu bằng cách tái hiện ví dụ R được cung cấp bằng plotly và so sánh kích thước bong bóng của ví dụ đó với chú giải tham chiếu được yêu cầu. Công việc được xem là hoàn tất khi cung cấp chú giải kích thước bong bóng phản ánh các giá trị carat trong biểu đồ, đồng thời xác minh được hành vi mong đợi dựa trên ví dụ.