0
我一直在尝试2个邮政编码之间的地图距离。我有大约3万条记录。我了解谷歌只允许每天2500个查询,因此我现在有一个来自他们的API。出于某种原因 - 我一直在努力将API密钥插入代码中。我还遇到了另一个名为googleway的软件包 - 它做了同样的事情,但我喜欢mapdist的格式。有没有一种方法:mapdist和googleway在R
一)使用API到这个代码或
B)使用谷歌的方式包装填充类似的结果从mapdist
欣赏提前您的支持。
library(ggmap)
library(plyr)
library(googleway)
key <- "XXX"
file_loc <- "C:/Users/Owner/Desktop/distance.csv"
x <- read.csv(file_loc, header = TRUE)
from <- x[1]
to <- x[2]
DF <- cbind(from, to); DF <- as.data.frame(DF) # create data frame
DF$from <- as.character(DF$from) # mapdist demands input to be character type
DF$to <- as.character(DF$to) # mapdist demands input to be character type
remove (from, to) #remove input to avoid confusion
DF$row.number <- 1:nrow(DF) #create an index number for each row
for (i in DF$row.number){
orig <- DF[i,c('from')]
dest <- DF[i,c('to')]
a <- mapdist(from = orig, to = dest, mode = "driving",output = c("simple", "all"), override_limit = FALSE)
a$row.number <- i
DF$minutes[match(a$row.number, DF$row.number)] <- a$minutes
DF$hours[match(a$row.number, DF$row.number)] <- a$hours
DF$km[match(a$row.number, DF$row.number)] <- a$km
DF$miles[match(a$row.number, DF$row.number)] <- a$miles
}
write.csv(DF, "newdata.csv") #Save dataset
使用'httr'直接调用API。另外,''''从''''''到'到'DF'位是循环的。 [让您的示例可重现](http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)。 – alistaire