R中的传单包没有绘制所有坐标答案

【问题标题】：Leaflet package in R not plotting all coordinatesR中的传单包没有绘制所有坐标
【发布时间】：2015-08-03 13:40:01
【问题描述】：

我正在尝试使用带有相当大的坐标集（约 34K 纬度/经度对）的传单进行绘图，但是，使用下面的代码似乎传单只绘制了其中的一小部分：

data <- read.csv("Food_inspections.csv", header = TRUE)
names(data) <- tolower(names(data))
data1 <- filter(data, risk == c("Risk 1 (High)","Risk 2 (Medium)","Risk 3 (Low)"))
data1$risk <- droplevels(data1$risk)

leaflet(data1) %>%
    addTiles() %>%
    addMarkers(lat = ~latitude, lng = ~longitude)

我得到的是这样的地图：

这显然不包含所有 ~34K 坐标。即使我使用“addCircles”，我也会得到同样的结果。其他地图包（例如 RgoogleMaps）似乎可以正确绘制所有内容。传单是否在绘图之前将其作为输入的坐标进行舍入，因为我可以看到使多个坐标在绘图中看起来重叠。

【问题讨论】：

浏览器显示的结果不能放大缩小吗？
芝加哥食品检查...最近的热门话题。

标签： r mapping leaflet

【解决方案1】：

点就在那里，您必须放大才能看到它们。但是……至少在我的浏览器中……超过 80 点左右，而且缩放需要超长的时间。

url <- "http://data.cityofchicago.org/api/views/4ijn-s7e5/rows.csv?accessType=DOWNLOAD"
data <- read.csv(url, header = TRUE) # takes a minute...
names(data) <- tolower(names(data))
data1 <- subset(data, risk %in% c("Risk 1 (High)","Risk 2 (Medium)","Risk 3 (Low)"))
data1$risk <- droplevels(data1$risk)

data1 <- data1[1:50,]
library(leaflet)
leaflet(data1) %>%
  addTiles() %>%
  addMarkers(lat = ~latitude, lng = ~longitude)

【讨论】：