我正在考虑Rchart/传单创建一个闪亮的应用程序房屋销售在我的县。任何时候都有几百套房子出售。想要为所有人绘制街道地址到地理位置的地图(lat/long)并在地图上显示它们。所以,我正在寻找一个r包,服务或数据库,可以映射街道地址到地理位置。
这里有一个基于哈维建议的函数。它将查找地址并给出第一个结果的坐标。看看函数中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