如何基于属性添加聚类标记?

时间:2019-07-10 18:15:06

标签: r leaflet

我有一个数据集,其中包含我的国家/地区转售房屋的信息。我使用ggmap geocode function获得了各个地址的坐标,并使用leaflet package在地图上显示了它们。但是,簇标记是随机放置的。我希望基于不同的属性在不同的缩放级别显示标记,并显示图例。

因此,在合理的缩放水平下,标记是基于特定区域(例如,北,中,东,西,东北)的房屋数量。

进一步放大,并显示该特定区域内城镇的聚类标记

在更深的缩放级别上,标记将根据该镇的公寓类型显示房屋数量。

这是我到目前为止所做的,但是还不多。很抱歉,因为我是R编程的新手。

test <- data.frame(lat = qns$lat,
                   lng = qns$lon)

test %>% 
  leaflet() %>%
  addTiles()%>%
  addMarkers(clusterOptions = markerClusterOptions())

这是我当前地图的屏幕截图 Mapplot1

这是我的数据示例

town <-c('Ang Mo Kio','Sembawang','Clementi','Pasir Ris','Yishun')
region <-c('North_East','North','West','East','North')                  
flat_type <-c('3 ROOM','3 ROOM','4 ROOM','5 ROOM','4 ROOM')
lat <-c(1.377804,1.450675,1.312938,1.377781,1.422404)
lon <-c(103.8381    ,103.8189,103.7716, 103.9405,103.8465)

qns <-data.frame(town,region,flat_type,lat,lon)

0 个答案:

没有答案