百度地图热力图_R如何使用网格热力图（来源高德地图）

最新推荐文章于 2024-07-25 03:56:53 发布

weixin_39945445

最新推荐文章于 2024-07-25 03:56:53 发布

阅读量1k

点赞数

文章标签：百度地图热力图高德api调用key过期怎么解决高德地图api amap.event.addlistener

这篇文章是介绍如何尽可能减少R的代码的编写，使用高德现成的可视化产品。这里是一篇介绍热力图的文章。

使用到的工具就是R和vscode。

第一步如何使用高德地图，肯定要用到高德地图的api！！！。至于如何申请，我前面已经介绍过了。可以查看以前的文章：

如何创建一个高德地图api

第二步就是打开vscode(下载地址为：https://code.visualstudio.com/ )

然后安装一个vscode插件。

第三步就是使用我写好的代码：

library(tidyverse)library(glue)#part 0gaode_api "你的key" # part 1if (!dir.exists("grid_heatmap")) {  dir.create("grid_heatmap")}# part 2if (!file.exists("grid_heatmap/maps.js")) {  maps_url "http://webapi.amap.com/maps?v=1.4.15&key={gaode_api}&")  download.file(url = maps_url, destfile = "grid_heatmap/maps.js", mode = 'wb')  }# part 3if (!file.exists("grid_heatmap/loca.js")) {  loca_url "http://webapi.amap.com/loca?v=1.3.0&key={gaode_api}")  download.file(url = loca_url, destfile = "grid_heatmap/loca.js", mode = "wb")}# part 4if (!file.exists("grid_heatmap/jquery.min.js")) {  jquery_js_url "https://a.amap.com/Loca/static/dist/jquery.min.js"  download.file(url = jquery_js_url, destfile = "grid_heatmap/jquery.min.js")}# part 5if (!file.exists("grid_heatmap/heatmap.html")) {  grid_heatmap_html_url "https://gitee.com/yuanzhoulvpi/grid_heatmap_all/raw/master/grid_heatmap_html.html"  download.file(url = grid_heatmap_html_url, destfile = "grid_heatmap/heatmap.html")}

其中part 0 是将你的key放到这个字符串里面

接下来的part 1、2、3、4、5都是创建一些文件，这些不用管，也不要动！！(只要改动那个高德api的key)结果在Rstudio的右下角可以看到这个文件树：

接下来，继续使用Rstudio创建一个数据。

test_data <- tibble(lng = rnorm(n = 20000, mean = 110, sd = 10),                    lat = rnorm(n = 20000, mean = 20, sd = 2),                    count = abs(rnorm(n = 20000, mean = 50000, sd = 3)))write.csv(test_data, file = "grid_heatmap/jsdata.csv")

运行完后，就可以发现在这个文件夹下又多了一个叫jsdata.csv的文件。

Rstudio这部分已经完成任务了，接下来打开通过vscode进入这个grid_heatmap文件夹。