使用R在Google静态世界地图上绘制大数据集

Question

我是R的新手。我有一个包含4M纬度经度值的大型csv。我想通过使用ggmap在谷歌地图上绘制这些lat长值。我尝试了一些样品，但缺少背景图...图中只显示了彩色圆点。

以下是我尝试使用的代码：

require('ggmap')
data<-read.csv(file = "full_data.csv")
map.in <- get_map(location =c(lon=0, lat=10), source = "google", zoom=1, maptype="roadmap", color = 'bw')
theme_set(theme_bw(base_size = 6))
pred.stat.map <- ggmap(map.in) %+% data +
  aes(x = Long,
      y = Lat, z=1) +
  stat_summary2d(fun = median,
                 binwidth = c(.05, .05),
                 alpha = 0.5) +
  scale_fill_gradientn(name = "Score",
                       colours = "red",
                       space = "Lab") +
  labs(x = "Longitude",
       y = "Latitude") +
  coord_map()
print(pred.stat.map)
ggsave(filename = "world_map.png",
       plot = pred.stat.map,
       scale = 1,
       width = 10, height = 5,
       dpi = 400)