如何從R中的城市名稱和國家/地區獲取經度和緯度坐標？

Question

我有一長串城市名稱和國家/地區，我想在地圖上繪制它們。 為了做到這一點，我需要每個城市的經度和緯度信息。

我的表名為test ，具有以下結構：

Cityname  CountryCode
New York  US
Hamburg   DE
Amsterdam NL

Answer 1

使用以下代碼我已成功解決了問題。

library(RJSONIO)
nrow <- nrow(test)
counter <- 1
test$lon[counter] <- 0
test$lat[counter] <- 0
while (counter <= nrow){
  CityName <- gsub(' ','%20',test$CityLong[counter]) #remove space for URLs
  CountryCode <- test$Country[counter]
  url <- paste(
    "http://nominatim.openstreetmap.org/search?city="
    , CityName
    , "&countrycodes="
    , CountryCode
    , "&limit=9&format=json"
    , sep="")
  x <- fromJSON(url)
  if(is.vector(x)){
    test$lon[counter] <- x[[1]]$lon
    test$lat[counter] <- x[[1]]$lat    
  }
  counter <- counter + 1
}

由於這是調用外部服務（openstreetmaps.org），因此對於較大的數據集可能需要一段時間。 但是，您可能只在新城市添加到列表中時偶爾執行此操作。

Answer 2

還有其他一些選擇。

ggmaps

ggmaps有一個功能geocode ，它使用谷歌地圖進行地理編碼。 這限制你每天2,500。

taRifx.geo

taRifx.geo的最新版本具有geocode功能，可使用Google或Bing Maps進行地理編碼。 Bing版本要求您使用（免費）Bing帳戶，但作為回報，您可以對更多條目進行地理編碼。 此版本的功能：

• 服務選擇（支持Bing和Google Maps）
• 登錄支持（特別是對於Bing，它需要一個帳戶密鑰，但在交換中允許每天更多的請求）
• 一次對整個data.frame進行地理編碼，包括一些節省時間的操作，例如忽略已經進行過地理編碼的任何行
• 強大的批量地理編碼（這樣任何錯誤都不會導致整個data.frame的地理編碼丟失，對於更大的工作）
• 路線尋找（從A點到B點的旅行時間）

Answer 3

試試這個我認為這將是解決這個問題的更好方法

 > library(ggmap) Loading required package: ggplot2 Google Maps API Terms of Service: http://developers.google.com/maps/terms. Please cite ggmap if you use it: see citation('ggmap') for details. #Now you can give city name or country name individually > geocode("hamburg") Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=hamburg&sensor=false lon lat 1 9.993682 53.55108 geocode("amsterdam") Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=amsterdam&sensor=false lon lat 1 4.895168 52.37022 > geocode("new york") Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=new+york&sensor=false lon lat 1 -74.00594 40.71278 

Answer 4

嘗試這個...

function geocodeAddress(geocoder, resultsMap) {
    var address = document.getElementById('address').value;
    geocoder.geocode({'address': address}, function(results, status) {
      if (status === 'OK') {
        resultsMap.setCenter(results[0].geometry.location);
        var marker = new google.maps.Marker({
          map: resultsMap,
          position: results[0].geometry.location,
          draggable:true
        });
        var infowindow = new google.maps.InfoWindow({
            content: "Please drag this marker to your position.."
          });
          infowindow.open(resultsMap,marker);
         document.getElementById('lat').value=marker.getPosition().lat();
        document.getElementById('lng').value=marker.getPosition().lng();
         marker.addListener('drag', handleEvent);
marker.addListener('dragend', handleEvent);
      } else {
        alert('Geocode was not successful for the following reason: ' + status);
      }
    });
  }

從這里獲取完整的代碼..