1

我正在使用 gmapsdistance 包来计算两个邮政编码之间的旅行时间。

它似乎工作得很好。邮政编码仍然存在一些几乎相同的错误，有时该功能不会输出正确的时间。

主要问题是在我正在使用的大小的数据集上运行该函数需要数小时。

这是数据集的示例数据框。

library(gmapsdistance)

df <- data.frame(
            "ZIP_START" = c(95051, 94534, 60193, 94591, 94128, 94015, 94553, 10994, 95008), 
            "ZIP_END" = c(98053, 94128, 60666, 73344, 94128, 73344, 94128, "07105", 94128), 
           stringsAsFactors = FALSE)

df$travel_time <- mapply(gmapsdistance, df$ZIP_START, df$ZIP_END, 
                         mode = "driving", key = get.api.key(), 
                         traffic_model = "best_guess")

有没有办法提高这个功能的速度？我尝试查看mclapply包，但它似乎在我的 R 版本中不可用。

本来我写了一个for循环，但是运行了10多个小时，所以我认为使用mapply方法会更快，但仍然需要很多时间。

4

0 回答 0