[数据获取]用R如何根据地址获取经纬度信息

以三亚市为例获取各区的经纬度信息

#从excel中读取地址并生成经纬度信息
# 安装并加载必要的包
if (!requireNamespace("readxl", quietly = TRUE)) {
  install.packages("readxl")
}
if (!requireNamespace("httr", quietly = TRUE)) {
  install.packages("httr")
}
if (!requireNamespace("dplyr", quietly = TRUE)) {
  install.packages("dplyr")
}
library(readxl)
library(httr)
library(dplyr)

# 你的高德地图API密钥
API_KEY <- "自己在高德中可以申请API" #文章结尾有介绍如何获取API

# 读取Excel文件中的地址信息
# Excel文件名为 "XXXXX.xlsx"，地址信息在第一个工作表的第一列
addresses <- read_excel("三亚地址示例.xlsx", sheet = 1)[[1]]

# 存储结果的列表
geocoding_results <- list()

# 发送请求并获取经纬度信息
for (address in addresses) {
  encoded_address <- URLencode(address)
  url <- paste0("https://restapi.amap.com/v3/geocode/geo?address=", encoded_address, "&key=", API_KEY)
  response <- GET(url)
  if (status_code(response) == 200) {