R中的CSV地理编码

Question

所以我想使用Google Maps获取R中多个地址的经度和纬度，下面的代码就是我使用的代码。我加载的文件是一个只有8种特定地址的CSV文件。

library(ggmap)
fileToLoad <-file.choose(new=TRUE)
origAddress <- read.csv(fileToLoad, stringsAsFactors = FALSE)
geocoded <- data.frame(stringsAsFactors = FALSE)
for(i in 1:nrow(origAddress))
{
  result <- geocode(origAddress$Address[i], output = "latlona", source 
  "google")
    origAddress$lon[i] <- as.numeric(result[1])
    origAddress$lat[i] <- as.numeric(result[2])
    origAddress$geoAddress[i] <- as.character(result[3])
}

尽管，当我尝试时，它总是返回一条错误消息，提示

此外：警告消息： 地理编码失败，状态为OVER_QUERY_LIMIT，位置=“ 插入部分位置”

我已经将地址缩短了，但仍然无法通过。有什么解决方案？谢谢！