如何获取R中给定地址的lon和lat

我正在处理R中的对象数据以及其他地理信息，如街道名称、街道编号、邮政编码和来自德国的城市。 我想使用一个函数获取特定地址的lon和lat信息，并更新我的数据帧。 对于数据帧中每个对象的lon和lat，我在qmap中生成一个geom_点

欢迎提供有关R中可能解决方案的任何帮助或信息，或在何处查找更多信息。

---

Sebastian

您可以使用Google Maps API进行反向地理编码，但很快就会受到速率限制。已经有一个R包使用这个GoogleAPI，但是我编写了这个函数，用于使用OpenStreetMapAPI进行反向地理编码。但是，一定要把你的电子邮件放在电话里，这样，如果你开始给他们的服务器施加压力，他们可以联系你

FindGPS <- function(cityname)  {
  library("RJSONIO") 
  cityname <- gsub(" ","\\+",cityname) #add '+' character to URL 
  #Open Connection
  SITE <- paste('http://nominatim.openstreetmap.org/
          search?q=',cityname,'&format=json&email=
          youremailhere@gmail.com', sep="") 
  con <- url(SITE)
  data.json <- fromJSON(paste(readLines(con,warn=FALSE),
                              collapse=""))
  close(con)
  t<-length(data.json)

  if(t>0)   {
    lat <- data.json[[1]]$lat
    long <- data.json[[1]]$lon
    latlong<-c(lat, long)
    return (latlong)
  }
}

---

嗨，克里斯，谢谢你的帮忙。我需要一个城市中给定街道和街道号的lon和lat。所以我的数据框看起来像街道；街道号码;；邮政编码；城市。我可以用street和streetnumber以及city展开FindGPS中的城市名称片段吗？在函数returnlatlon的末尾，我需要用两个新字段lon和lat更新我的数据帧。我想是的，但我已经有几年没有使用过该代码了-也许可以查看api文档？