R：将图例标签调整为所选（gg）绘图输出

Question

我正在使用ggplotly对象来显示闪亮仪表板中的散点图。我有一个使用列值着色的图。但是，当我想看一下情节的某个部分时，我会放大以了解有关这些点的更多信息。然后，图例标签应根据可见窗口或选定/选定区域中的点进行调整。

例如，我在下方有一个散点图，其中包含完整数据，cut列有五个不同的值。

library(plotly)

set.seed(100)
d <- diamonds[sample(nrow(diamonds), 1000), ]

p <- ggplot(data = d, aes(x = carat, y = price, color = cut)) + geom_point()

ggplotly(p)

输出：

当我选择绘图窗口时，上图中没有与Fair或Good相关的点。如何在图例标签中避免它们？如何调整/更新所选区域的标签（例如，如下所示）？是否应使用闪亮的反应特征处理？