从一个点确定多个邮政编码之间的距离

Question

我一直在使用mapdist功能（）来确定两个邮政编码之间的距离。我对循环还不是很好，并且想知道如何在多个zipcodes中循环，这样我就不必每次都重新运行代码。

下面发布的代码。

library(ggmap)
mapdist('95077','06473', mode = 'driving')

Answer 1

library(ggmap)

构建示例data.frame

geoData <- data.frame(FROM = c('95077', 'Manchester Deaf Institute'),
                  TO = c('06473', 'Birmingham O2 Academy 1'), 
                  stringsAsFactors = FALSE) 

将列作为args传递

mapdist(from = geoData[['FROM']], 
    to   = geoData[['TO']], 
    mode = 'driving')

结果

                       from                      to       m       km      miles seconds   minutes     hours
1                     95077                   06473 4932333 4932.333 3064.95173  161558 2692.6333 44.877222
2 Manchester Deaf Institute Birmingham O2 Academy 1  141330  141.330   87.82246    6569  109.4833  1.824722