R 上的 Leaflet addCircleMarkers 半径

Question

我在传单 addCircleMarkes

中有一个带有半径的 "problem"

示例数据集：

lat    long    number
 -      -        4
 -      -        26
 -      -        13
 -      -        40
 -      -        30

我用 radius = ~ifelse(data$number <=25, 2, ifelse((data$number > 25 & data$number <=50),4,6)) 更改地图中圆标记的半径（如果嵌套）没问题，但我认为还有另一种 "elegant" 方式。

我不知道如何自动生成一系列数字，例如 [0-25] = 2、[26 - 50] = 4 和 [51 - more] = 6 并比较：

如果 data$number 在特定范围内，则将与该范围关联的数字放入半径中。

原始数据集的数字在 1 到 1500 之间，所以我实际形成它并没有多大帮助。

提前致谢

Answer 1

 radius <- findInterval(exampledataset$number,c(25,50,1500)) * 2

将其作为一列添加到您的 SpatialPointsDataFrame 中，然后将其指定为传单中的半径。