根据模糊地理位置获取省市县信息

最新推荐文章于 2024-04-08 12:09:34 发布

小小狼AIhappy

最新推荐文章于 2024-04-08 12:09:34 发布

阅读量1.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏：地理位置信息

本文链接：https://blog.youkuaiyun.com/xiaohaha2018/article/details/81739430

地理位置信息专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一款基于Shiny的模糊地理位置信息查询工具，利用百度地图API，将不精确的地址转换为详细的经纬度坐标及省市县信息，并在地图上进行可视化展示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

# ---模糊地理位置的具体位置信息转换查询：----
# ---时间：2018-8-2--------------------------

# 功能介绍：
# 使用该查询工具，可以依据模糊的地理位置，得到相对详细的位置信息
# 这些信息主要包括：经纬度，所处的省市县等
# 还可以标注在地图上，在地图上查看所查找位置周边信息

# ---------------1.所需工具包列表：-----------------------
library(shiny)
library(REmap)
library(rjson)
library(RCurl)
library(leaflet)
library(shinydashboard)
library(shinythemes)

# ---------------2.前端设计：-----------------------------
ui = shinyUI(
fluidPage(
titlePanel(div('模糊地理位置信息查询工具',style = "font-family:'STZhongsong';color:orange")),
br(),
fluidRow(
column(
width = 3,
textInput('lbs','请输入模糊地址：','山东浪潮科技园'),
box(
style = 'font-size:110%;',
title = h5(strong('经纬度信息展示:')),
width = 12,
height = 100,
solidHeader = F,
background = 'yellow',
status = 'warning',
collapsible = F,
tableOutput('map_lbs_ag')
),
br(),
br(),
box(
style = 'font-size:110%;',
width = 12,
title = h5(strong('省市县信息展示:')),
height = 400,
solidHeader = F,
background = 'yellow',
status = 'warning',
collapsible = F,
tableOutput('text_lbs')
)
),
column(
width = 9,
strong('地图信息展示:'),
br(),
box(
style = 'font-size:110%;',
width = 12,
height = 400,
solidHeader = F,
background = 'yellow',
status = 'warning',
collapsible = F,
leafletOutput('map_lbs')
)

)
)
)
)

# --------------------------------------------------------------------

# 百度地图接口调用：

# 获取模糊地理位置的经纬度信息：
get_goord = function(address){
ak = 'IhMA1O1bfchXE1Q6xgDUoE9cepoi4EYx'
url = paste('http://api.map.baidu.com/geocoder/v2/?ak=',
ak,'&callback=renderOption&output=json&address=',
address,sep = '')
url_string = URLencode(url)
json = readLines(url_string,warn = F,encoding = 'UTF-8')
geocoord = fromJSON(substr(json,regexpr('\\(',json)+1,nchar(json)-1))
lng = geocoord$result$location$lng
lat = geocoord$result$location$lat
result = data.frame(lat = lat,lng = lng)
return(result)
}

# 根据经纬度信息获取省市县位置信息：
get_position = function(position){
position = paste(position$lat,position$lng,sep = ',')
ak = 'IhMA1O1bfchXE1Q6xgDUoE9cepoi4EYx'
url = paste('http://api.map.baidu.com/geocoder/v2/?ak=',
ak,'&callback=renderReverse&location=',
position,'&output=json',sep = '')
url_string = URLencode(url)
jason = readLines(url_string, warn = F, encoding = 'UTF-8')
geo = fromJSON(substr(jason,regexpr('\\(',jason) + 1,nchar(jason) - 1))
prov = geo$result$addressComponent$province
city = geo$result$addressComponent$city
dist = geo$result$addressComponent$district
lbs_data = data.frame(
label = c('所在地省份','所在地城市','所在地区县'),
value = c(prov,city,dist)
)
return(lbs_data)
}

# ------------3.服务端-----------------------

server = function(input,output){
output$text_lbs = renderTable({
lbs_data = get_goord(input$lbs)
lbs_data_new = get_position(lbs_data)
lbs_data_new
})

output$map_lbs_ag = renderTable({
lbs_data = get_goord(input$lbs)
lbs_data
})

output$map_lbs = renderLeaflet({
lbs_data = get_goord(input$lbs)
leaflet() %>%
addTiles() %>%
setView(lat = lbs_data$lat,lng = lbs_data$lng,zoom = 12) %>%
addMarkers(lat = lbs_data$lat,lng = lbs_data$lng,popup = input$lbs)
})
}

shinyApp(ui = ui,server = server)