街道地址到地理位置lat/long

Question

我正在考虑Rchart/传单创建一个闪亮的应用程序房屋销售在我的县。任何时候都有几百套房子出售。想要为所有人绘制街道地址到地理位置的地图（lat/long）并在地图上显示它们。所以，我正在寻找一个r包，服务或数据库，可以映射街道地址到地理位置。

Answer 1

这里有一个基于哈维建议的函数。它将查找地址并给出第一个结果的坐标。看看函数中x的结构，看看您可以获得的其他信息。

geocodeAdddress <- function(address) {
  require(RJSONIO)
  url <- "http://maps.google.com/maps/api/geocode/json?address="
  url <- URLencode(paste(url, address, "&sensor=false", sep = ""))
  x <- fromJSON(url, simplify = FALSE)
  if (x$status == "OK") {
    out <- c(x$results[[1]]$geometry$location$lng,
             x$results[[1]]$geometry$location$lat)
  } else {
    out <- NA
  }
  Sys.sleep(0.2)  # API only allows 5 requests per second
  out
}

例如：

R> geocodeAdddress("Time Square, New York City")
[1] -73.98722  40.7575