R 是否有可以使用gvisMap绘制的最大点数？或gvisMap不会绘制所有点

编辑 在三天没什么兴趣之后，我添加了一个完全可复制的示例。。。下面的代码表示1400个位置。前700个点以第一个区域为中心，第二700个点以西北第二个区域为中心

datOne <- data.frame(
  Long = runif(700, -111.180000, -110.950000 ),
  Lat = runif(700, 43.180000, 43.440000),
  Area = "First")

datTwo <- data.frame(
  Long = runif(700, -111.850000, -110.900000),
  Lat = runif(700, 43.910000, 44.000000),
  Area = "Second")

dat <- rbind(datOne, datTwo)
dat$LatLong <- paste(dat$Lat, dat$Long, sep = ":")

head(dat)
       Long      Lat  Area                            LatLong
1 -110.9701 43.19509 First 43.1950901590148:-110.970063584852
2 -111.0258 43.25338 First 43.2533758980362:-111.025837010061
3 -111.1737 43.18016 First  43.180157370572:-111.173737878765
4 -111.1130 43.41193 First 43.4119294773275:-111.112970910808
5 -110.9909 43.34044 First 43.3404393909033:-110.990947539737
6 -110.9800 43.33428 First 43.3342766285082:-110.979969937215

为了确认所有位置的格式正确，我可以将数据帧子集，以绘制500:1000点，其中包括两个区域中的位置。将第一行代码更改为

M2 <- gvisMap(dat[500:1000, ], "LatLong", 

---

M2查看下面的示例。这将使用R传单包并将弹出窗口绑定到区域列中的标记

library(leaflet)

datOne <- data.frame(
  lng = runif(700, -111.180000, -110.950000 ),
  lat = runif(700, 43.180000, 43.440000),
  Area = "First")

datTwo <- data.frame(
  lng = runif(700, -111.850000, -110.900000),
  lat = runif(700, 43.910000, 44.000000),
  Area = "Second")

dat <- rbind(datOne, datTwo)
dat$latLng <- paste(dat$lat, dat$lng, sep = ":")

map<-leaflet(dat)
map<-addTiles(map)
map<-addMarkers(map,~lng,~lat,popup = ~as.character(Area))
map

图书馆（传单）
datOne是的，使用Google Maps API，通过
googleVis

如本文所述：[

注意：Lat Long PAIRES选项加载地图的速度要快得多，尤其是在大数据的情况下。我们建议您对大数据集使用此选项。请访问Google maps API，了解如何将地址转换为Lat Long点。地图最多可以显示400个条目；如果您的数据包含400行以上，则仅会显示前400行e如图所示

上述
小册子
适用于大于400个点的数据集。
仅将其加入到这里的混合中，因为问题是最大点数。以防您发现自己需要绘制点（或多边形或直线）以数万或数百万计，mapview将是一个选项：

library(mapview)
library(sp)

datOne <- data.frame(
  lng = runif(70000, -111.180000, -110.950000 ),
  lat = runif(70000, 43.180000, 43.440000),
  Area = "First")

coordinates(datOne) <- ~ lng + lat
proj4string(datOne) <- "+init=epsg:4326"

mapview(datOne)

库（mapview）
图书馆（sp）
datOne传单可能是一个更好的选择。很酷。传单看起来也是一个不错的选择。也就是说，带有
gvisMap
的现有代码也应该可以满足我的需要，除了操作中的奇怪问题。。。
library(mapview)
library(sp)

datOne <- data.frame(
  lng = runif(70000, -111.180000, -110.950000 ),
  lat = runif(70000, 43.180000, 43.440000),
  Area = "First")

coordinates(datOne) <- ~ lng + lat
proj4string(datOne) <- "+init=epsg:4326"

mapview(datOne)