R中的Leaflet包没有绘制所有坐标

Question

我正在尝试使用一些相当大的坐标（~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）似乎正确地绘制了所有内容。在绘图之前，传单是否将其作为输入所使用的坐标进行舍入，因为我可以看到在绘图中使几个坐标看起来重叠。

Answer 1

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

chrome.cookies