Xác định khoảng cách giữa hai mã ZIP (lựa chọn thay thế cho mapdist)

Question

Tôi muốn tính khoảng cách giữa khoảng. 100.000 mã ZIP khác nhau. Tôi biết về mapdist chức năng trong ggmap gói

mapdist hoạt động hoàn hảo:

library(ggmap) 
mapdist('Washington', 'New York', mode = 'driving') 

#   from  to  m  km miles seconds minutes hours 
# 1 Washington New York 366284 366.284 227.6089 13997 233.2833 3.888056 


mapdist('20001', '10001', mode = 'driving') 

# from to  m  km miles seconds minutes hours 
# 1 20001 10001 363119 363.119 225.6421 13713 228.55 3.809167 

Tuy nhiên, mapdist dựa trên API Google Geocoding đó là tùy thuộc vào giới hạn truy vấn của 2.500 geolocation yêu cầu mỗi ngày.

Bạn có biết bất kỳ mã r thay thế nào để tính khoảng cách giữa hai điểm sử dụng một dịch vụ khác có giới hạn yêu cầu cao hơn (như Bản đồ Nokia hoặc Bing) không?

Answer 1

taRifx.geo::georoute (chỉ có sẵn here cho đến khi tôi đẩy ra một bản cập nhật khác, tại thời điểm này sẽ có sẵn qua install.packages) có thể sử dụng Bản đồ Bing (hỗ trợ tôi tin 25k mỗi ngày) và có thể trả lại khoảng cách.

georoute(c("3817 Spruce St, Philadelphia, PA 19104", 
      "9000 Rockville Pike, Bethesda, Maryland 20892"), 
      verbose=TRUE, returntype="time", 
      service="bing") 

Bạn sẽ có để có được một khóa API Bing Maps và đặt nó vào R cài đặt global của bạn (vị trí lý tưởng là trong .Rprofile), nhưng quan trọng là miễn phí:

options(BingMapsKey="whateverBingGivesYouForYourKey") 

Answer 2

Nếu bạn bắt đầu phiên R mới và chạy library(ggmap) trong phiên mới, bạn có thể thực hiện 2500 truy vấn khác.

Chức năng distQueryCheck() cho biết số lượng truy vấn còn lại.