我在R上使用highcharter软件包时遇到了一个问题。我想在一条线上突出显示一些特定的点（由许多不同的点组成）。在ggplot上，代码如下：

library(ggplot2)

diamonds%>%  
head(100)%>%  
ggplot()+ 
geom_line(aes(x = x, y = y, color = cut))+  
geom_point(aes(x = x, y=y, color = cut), data = diamonds%>%head(3))

请注意，我，像在上面的例子，将有几个组。因此，每个点必须与正确的组颜色。
由于它是交互式的，我还希望在单击图例删除组线时，点与线一起消失。
我发现了一个例子，它非常接近我想要实现的目标，但没有设法在highcharter中复制它，特别是在使用hcaesMap参数时。https://jsfiddle.net/BlackLabel/s24rk9x7/
任何帮助都将不胜感激。