marker50k

マーカー50000でクラスタ化

kosaki <- data.frame(id=1:50000,lng=135+rnorm(50000),lat=35+rnorm(50000))
leaflet(kosaki) %>% 
    addTiles() %>% 
    addMarkers(~lng, ~lat, label=~paste0(id,"番"),
                         clusterOptions = markerClusterOptions())

これ以上大きな数字になると、マシン性能によってはRStudioもしくはブラウザが帰ってこなくなりそうです。それなりのマシンで実行したのですが、厳しかったです。