如何在R语言中根据经纬度坐标获取邮政编码？

你的代码核心问题是坐标顺序搞反了：ggmap的revgeocode函数要求传入的坐标是经度在前，纬度在后，但你传的是c(lat, lon)，这就导致反向地理编码请求的位置不对，自然拿不到正确的邮政编码。

修正后的单例测试代码 #

library("ggmap")
# 先注册Google API密钥（如果还没配置）
# register_google(key = "你的API密钥")

lat <- 38.8977 
lon <- 77.0365 
# 调整坐标顺序：经度在前，纬度在后
res <- revgeocode(c(lon, lat), output="all")

# 从返回结果中提取邮政编码
postal_code <- res$results[[1]]$address_components %>%
  filter(type == "postal_code") %>%
  pull(long_name)

print(postal_code) # 会输出对应邮政编码20001

批量处理两列数据的方法 #

假设你的数据框叫df，包含lat（纬度）和lon（经度）两列，可以用以下代码批量生成邮政编码列：

library(dplyr)

df <- df %>%
  rowwise() %>%
  mutate(
    # 调用反向地理编码，结果存为列表
    rev_geo_result = list(revgeocode(c(lon, lat), output="all")),
    # 从结果中提取邮政编码，处理可能的空值
    postal_code = ifelse(
      length(rev_geo_result[[1]]$address_components) > 0,
      rev_geo_result[[1]]$address_components %>%
        filter(type == "postal_code") %>%
        pull(long_name) %>%
        first(),
      NA
    )
  ) %>%
  select(-rev_geo_result) # 移除临时存储的结果列

注意事项 #

1. 必须先注册Google Maps API密钥并通过register_google函数配置，否则请求会被限制或失败。
2. 大量坐标处理时要注意Google API的调用配额，避免超出限制。
3. 偏远地区可能没有对应邮政编码，建议用ifelse或tryCatch添加错误处理，防止批量处理中断。

内容的提问来源于stack exchange，提问作者EV_Mustang