r - R上的传单addCircleMarkers半径

Question

我在传单 addCircleMarkes 中有一个半径“问题”

示例数据集：

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

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

我无法弄清楚如何自动生成一系列数字，例如 [0-25] = 2、[26 - 50] = 4 和 [51 - more] = 6 并进行比较：

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

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

提前致谢

Answer 1

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

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