R：如何显示每个散点图类别中的点数？

如果我有一个Plot.ly Plot，比如这个scatterplot：

suppressPackageStartupMessages(library("plotly"))
plot_ly(data = iris, x = Sepal.Length, y = Petal.Length, mode = "markers",
        color = Species)

如何显示每个类别的点数？例如，我希望图例看起来像这样：

• 弗吉尼亚-35

• 花色-44

• 刚毛-28

其中数字是所示的总点数。是否有办法使用Plot.ly执行此操作，以使显示的值反映在绘图上显示的点数？使用Plot.ly还有其他方法实现这一点吗？

n%mutate（new=paste（物种“-”，n））
n <- count(iris, Species) %>% mutate(new = paste(Species, '-', n))
levels(iris$Species) <- n$new

plotly::plot_ly(data = iris, x = Sepal.Length, y = Petal.Length, mode = "markers",
        color = Species)

水平（虹膜$物种）
n%突变（新=粘贴（物种，'-'，n））
级别（iris$物种）谢谢，但这是图例中条目数的硬编码。我想我不清楚，但我对Plot.ly为中心的解决方案感兴趣，特别是当数据点的子选择显示在Plot上时将更新的解决方案。谢谢，但这是对图例中条目数的硬编码。我想我不太清楚，但我对Plot.ly为中心的解决方案感兴趣，尤其是当数据点的子选择显示在Plot上时将进行更新的解决方案。