单张addCircleMarkers R上

Question

半径我有一个“问题”与小叶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）不问题与此，但我认为还有另一种更“优雅”的方式。

我不能找出如何自动生成的数字范围，例如[0-25] = 2，[26 - 50] = 4和[51 - 更多] = 6和比较：

如果数据$号码在特定范围内，则放入与该范围相关联的号码。

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

在此先感谢

Answer 1

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

如添加一列，这在您的SpatialPointsDataFrame，然后将其指定为单张半径。