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

Question

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

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）似乎可以正确绘制所有内容。在绘图之前，传单是否围绕它作为输入的坐标，因为我可以看到使几个坐标在绘图中看起来重叠。

Answer 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)

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

Leaflet package in R not plotting all coordinates

r

mapping

leaflet