所以基本上我有一些空间数据，我在dnearneigh中找到了距离R的加权矩阵，我想知道是否可以通过改变距离来生成链接分布的交互式图表加权矩阵的变量。
数据集：
CA.poly <- readShapePoly('CaliforniaCounty.shp')
这是加利福尼亚州的一个shapefile，使用它我可以根据每个县的距离生成一个权重矩阵。
coords<-coordinates(CA.poly)
W_dist<-dnearneigh(coords,0,1.5,longlat = FALSE)
生成矩阵后，我可以使用以下方法绘制链接分布：
plot(W_dist,coordinates(CA.poly))
如果他们的距离（质心之间）小于1.5公里，这将显示两个县相连的县网络。
所有代码都在一个Rmd文件中，我想知道有没有办法在html中输出一个交互式绘图，你（用户）可以改变距离参数（例如改变1.5公里到1公里），图表将变化
我查找了使用闪亮和情节的方法，但我认为它们不符合我的目标。有什么建议吗？