R上的Leaflet addCircleMarkers radius

Question

我有一个＆＃34;问题＆＃34;小叶中的半径addCircleMarkes

示例数据集：

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

我更改地图中圆圈标记的半径radius = ~ifelse(data$number <=25, 2, ifelse((data$number > 25 & data$number <=50),4,6))（嵌套if）没有问题，但我认为还有另外一个＆＃34;优雅＆＃34;方式。

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

如果数据$ number在特定范围内，则将半径与该范围相关联。

原始数据集的数字介于1到1500之间，因此我的实际形式并没有多大帮助。

提前致谢

Answer 1

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

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