我如何获取（获取）给定地址的最大值和最小值R

Question

我正在使用德国的街道名称，街道号码，邮政编码和城市等其他地理信息处理R中的对象数据。 我想使用函数来获取特定地址的lon和lat信息并更新我的数据框。 随着从该数据框的每个opbject的lon和lat，我在qmap中生成一个geom_point。

任何帮助或信息的R可能的解决方案或在哪里查找更多的信息是值得欢迎的。 塞巴斯蒂安

Answer 1

您可以使用Google Maps API进行反向地理编码，但速度会受到限制。已经有一个使用这个Google API的R包，但是我使用openstreetmap API写了这个用于反向地理编码的函数。不过，请确保将电子邮件发送到电话中，以便他们可以在您开始强调其服务器时与您联系。

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) 
    } 
}