jquery获取元素距离顶部的距离_R语言利用百度密钥获取经纬度与直线距离

先利用baidumap包获取经纬度，该包需要用到百度密钥；再用geosphere包获得直线距离。library(rjson)library(jsonlite)# library(devtools)# 在github上下载baidumap包# install_github('badbye/baidumap', force=TRUE)librar...

环球情报员

91人浏览 · 2021-01-28 00:06:47

环球情报员 · 2021-01-28 00:06:47 发布

先利用baidumap包获取经纬度，该包需要用到百度密钥；再用geosphere包获得直线距离。

library(rjson)
library(jsonlite)
# library(devtools)                        # 在github上下载baidumap包
# install_github('badbye/baidumap', force=TRUE)
library(baidumap)
options(baidumap.key = '你的百度密钥')     # 百度密钥
# 下面设置函数
coords = function(i) {
  data = getCoordinate(i) 
  df = as.data.frame(fromJSON(data))   # 将json格式转化为R的格式
  lng = df $ result.location.lng       # 获得经度
  lat = df $ result.location.lat       # 获得纬度
  return (c(lng,lat))                  # 整合经度和纬度     
}
address1 = coords('杭州市')      # 获得杭州市坐标  
address2 = coords('南京市')      # 获得南京市坐标  
address1; address2

在RStudio中，显示结果如下：

# 下面测算两地直线距离
library(geosphere)               # 安装此包
places = rbind(address1, address2)  
places
mode(places)
distance = distm(places)         # 获得两地直线距离   
distance                         # 输出结果为2*2矩阵

在RStudio中，显示结果如下：