R:克服传单限制

时间:2016-08-12 12:19:33

标签: r leaflet

我开始使用小册子在地图上放置大圆圈,在欧洲发生故障集群。它目前正在玩耍。我有120万行,持续6个月的数据

我使用下面的代码进行聚类,但似乎在10k点之后没有绘制任何东西。我并不是真的需要它来分析个别点,也许它最多可以聚集15或20个项目。谁能告诉我如何纠正这种情况?

sample <- head(ex, 9500)  

leaflet(sample) %>% 
  addTiles() %>%
  fitBounds(0, 60, 20, 70) %>%  
  addMarkers(clusterOptions = markerClusterOptions())

2 个答案:

答案 0 :(得分:3)

library(mapview)能够绘制多达400万个点(显然取决于机器)。这是一个可重复的例子,有大约130万点:

library(mapview)
library(ggplot2)
library(sp)

### blow diaminds up a bit
big <- data.frame(diamonds[rep(seq_len(nrow(diamonds)), 25),])
big$cut <- as.character(big$cut)
big$color <- as.character(big$color)
big$clarity <- as.character(big$clarity)

### provide some random positions
big$x <- rnorm(nrow(big), 0, 10)
big$y <- rnorm(nrow(big), 0, 10)
coordinates(big) <- ~x+y
proj4string(big) <- CRS("+init=epsg:4326")

### view it
mapview(big)

这需要一段时间才能加载(在我的机器上大约30秒),但随后一切都会非常敏感。

请注意,这是有效的,但装饰点的选项较少。即没有颜色或大小的映射。从好的方面来说,您将获得有关基础数据框的所有点的弹出窗口的完整信息。

另请注意, mapview 旨在使用空间类(因此示例中的coordinatesproj4string调用),因此您需要确保拥有由library(sp)提供的有效Spatial *对象。

答案 1 :(得分:0)

看完之后:

https://github.com/Leaflet/Leaflet.markercluster

该套餐的目的是为marketClusterOptions处理50,000点,但仅限Chrome,所以我说,尝试使用Chrome。