Question

我想找到使用mapdist函数从最多1000个路径从一个点驱动到另一个点所需的时间。我的想法是使用函数mapdist的1000倍，并将每个计算存储在如下数据框中：

library(ggmap)
df1 <- mapdist("'S GRAVENHAGESTRAAT, HEIST-OP-DEN-BERG","Nationalestraat 111, Antwerpen",mode="driving")
df2 <- mapdist("'S GRAVENWEZELSTWG, WIJNEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df3 <- mapdist("'S HERENBAAN, BOOM","Nationalestraat 111, Antwerpen",mode="driving")
df4 <- mapdist("'S HERENBAAN, REET","Nationalestraat 111, Antwerpen",mode="driving")
df5 <- mapdist("'S HERENLEI, KONTICH","Nationalestraat 111, Antwerpen",mode="driving")
df6 <- mapdist("'S HERENSTRAAT, BORGERHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df7 <- mapdist("'S HERENWEG, ITEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df8 <- mapdist("'S HERTOGENDIJK, HOEVENEN","Nationalestraat 111, Antwerpen",mode="driving")
df9 <- mapdist("'S HERTOGENDIJK, STABROEK","Nationalestraat 111, Antwerpen",mode="driving")
df10 <- mapdist("'T HOOGSTE, BORNEM","Nationalestraat 111, Antwerpen",mode="driving")
df11 <- mapdist("'T KAPMES, BOOISCHOT","Nationalestraat 111, Antwerpen",mode="driving")
df12 <- mapdist("'T LEITJE, MECHELEN","Nationalestraat 111, Antwerpen",mode="driving")
df13 <- mapdist("'T PLEIN, MECHELEN","Nationalestraat 111, Antwerpen",mode="driving")
df14 <- mapdist("'T PLEINTJE, ONZE-LIEVE-VROUW-WAVER","Nationalestraat 111, Antwerpen",mode="driving")
df15 <- mapdist("'T ROETJE, WUUSTWEZEL","Nationalestraat 111, Antwerpen",mode="driving")
df16 <- mapdist("'T SERCLAESDREEF, WOMMELGEM","Nationalestraat 111, Antwerpen",mode="driving")
df17 <- mapdist("'T SERCLAESLEI, BRASSCHAAT","Nationalestraat 111, Antwerpen",mode="driving")
df18 <- mapdist("'T SWEEN, WOMMELGEM","Nationalestraat 111, Antwerpen",mode="driving")
df19 <- mapdist("'T VEER, MECHELEN","Nationalestraat 111, Antwerpen",mode="driving")
df20 <- mapdist("'T VLIETJE, MECHELEN","Nationalestraat 111, Antwerpen",mode="driving")
df21 <- mapdist("1 MEISTRAAT, TERHAGEN","Nationalestraat 111, Antwerpen",mode="driving")
df22 <- mapdist("11E GENIESTRAAT, BURCHT","Nationalestraat 111, Antwerpen",mode="driving")
df23 <- mapdist("17E LICHT VLIEGWEZE, BALEN","Nationalestraat 111, Antwerpen",mode="driving")
df24 <- mapdist("4-SEPTEMBERLAAN, WILLEBROEK","Nationalestraat 111, Antwerpen",mode="driving")
df25 <- mapdist("A BEVERNAGELEI, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df26 <- mapdist("A BEYLTJENSSTRAAT, HOVE","Nationalestraat 111, Antwerpen",mode="driving")
df27 <- mapdist("A BIJNSSTRAAT, BERCHEM","Nationalestraat 111, Antwerpen",mode="driving")
df28 <- mapdist("A BLOMMAERTSTRAAT, WUUSTWEZEL","Nationalestraat 111, Antwerpen",mode="driving")
df29 <- mapdist("A BOELSTRAAT, WUUSTWEZEL","Nationalestraat 111, Antwerpen",mode="driving")
df30 <- mapdist("A BORINSTRAAT, ZWIJNDRECHT","Nationalestraat 111, Antwerpen",mode="driving")
df31 <- mapdist("A BROUWERSSTRAAT, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df32 <- mapdist("A BROUWERSTRAAT, ANTWERPEN","Nationalestraat 111, Antwerpen",mode="driving")
df33 <- mapdist("A BUTSSTRAAT, ZOERSEL","Nationalestraat 111, Antwerpen",mode="driving")
df34 <- mapdist("A C SWINNESTRAAT, STABROEK","Nationalestraat 111, Antwerpen",mode="driving")
df35 <- mapdist("A CANNAERTSSTRAAT, WESTERLO","Nationalestraat 111, Antwerpen",mode="driving")
df36 <- mapdist("A CHANTRAINESTRAAT, WILRIJK","Nationalestraat 111, Antwerpen",mode="driving")
df37 <- mapdist("A CLAESSENSSTRAAT, HOVE","Nationalestraat 111, Antwerpen",mode="driving")
df38 <- mapdist("A COOLSLAAN, EDEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df39 <- mapdist("A. COOLSSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df40 <- mapdist("A DE BRUYNSTRAAT, ITEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df41 <- mapdist("A DE CLERCKSTRAAT, SINT-JOB-IN-'T-GOOR","Nationalestraat 111, Antwerpen",mode="driving")
df42 <- mapdist("A DE COCKSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df43 <- mapdist("A DE GERLACHESTRAAT, EDEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df44 <- mapdist("A DE GRAEVESTRAAT, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df45 <- mapdist("A DE LAETSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df46 <- mapdist("A DE LALAINGSTRAAT, HOOGSTRATEN","Nationalestraat 111, Antwerpen",mode="driving")
df47 <- mapdist("A DE PRETERLAAN, KALMTHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df48 <- mapdist("A DE SCHUTTERSTRAAT, EKEREN","Nationalestraat 111, Antwerpen",mode="driving")
df49 <- mapdist("A DE VOSSTRAAT, GEEL","Nationalestraat 111, Antwerpen",mode="driving")
df50 <- mapdist("A DE VOSSTRAAT, WILRIJK","Nationalestraat 111, Antwerpen",mode="driving")
df51 <- mapdist("A DESMEDTLAAN, SINT-LENAARTS","Nationalestraat 111, Antwerpen",mode="driving")
df52 <- mapdist("A DICKSCHENSTRAAT, WILRIJK","Nationalestraat 111, Antwerpen",mode="driving")
df53 <- mapdist("A DIERCKXLAAN, SCHILDE","Nationalestraat 111, Antwerpen",mode="driving")
df54 <- mapdist("A DIERCKXSTRAAT, BALEN","Nationalestraat 111, Antwerpen",mode="driving")
df55 <- mapdist("A DILSLEI, 'S GRAVENWEZEL","Nationalestraat 111, Antwerpen",mode="driving")
df56 <- mapdist("A DINEURLAAN, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df57 <- mapdist("A DURERSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df58 <- mapdist("A EINSTEINLAAN, HOBOKEN","Nationalestraat 111, Antwerpen",mode="driving")
df59 <- mapdist("A EN WILLEMLAAN, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df60 <- mapdist("A ENGELSSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df61 <- mapdist("A FARNESEPLEIN, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df62 <- mapdist("A FRANCKSTRAAT, BOECHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df63 <- mapdist("A GEENENLAAN, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df64 <- mapdist("A GHIJSSTRAAT, VOSSELAAR","Nationalestraat 111, Antwerpen",mode="driving")
df65 <- mapdist("A GOEMAERELEI, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df66 <- mapdist("A GRISARSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df67 <- mapdist("A HANSLAAN, KONTICH","Nationalestraat 111, Antwerpen",mode="driving")
df68 <- mapdist("A HERMANSLAAN, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df69 <- mapdist("A HEULENSSTRAAT, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df70 <- mapdist("A JEURISSENSTRAAT, EKEREN","Nationalestraat 111, Antwerpen",mode="driving")
df71 <- mapdist("A JONCKERSSTRAAT, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df72 <- mapdist("A KENNISPLEIN, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df73 <- mapdist("A LOUISASTRAAT, KAPELLEN","Nationalestraat 111, Antwerpen",mode="driving")
df74 <- mapdist("A MARSTBOOMSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df75 <- mapdist("A MATTHYSLAAN, BORGERHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df76 <- mapdist("A MEGENSPLEIN, MOL","Nationalestraat 111, Antwerpen",mode="driving")
df77 <- mapdist("A MENYSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df78 <- mapdist("A MEULEMANSSTRAAT, MERKSEM","Nationalestraat 111, Antwerpen",mode="driving")
df79 <- mapdist("A MICHIELSSTRAAT, ANTWERPEN","Nationalestraat 111, Antwerpen",mode="driving")
df80 <- mapdist("A MORTELMANSSTRAAT, WOMMELGEM","Nationalestraat 111, Antwerpen",mode="driving")
df81 <- mapdist("A NAHONLAAN, ZWIJNDRECHT","Nationalestraat 111, Antwerpen",mode="driving")
df82 <- mapdist("A NAHONLEI, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df83 <- mapdist("A NOBELLAAN, HOBOKEN","Nationalestraat 111, Antwerpen",mode="driving")
df84 <- mapdist("A OLEFFESTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df85 <- mapdist("A OSTSTRAAT, BORGERHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df86 <- mapdist("A OSTSTRAAT, HOOGSTRATEN","Nationalestraat 111, Antwerpen",mode="driving")
df87 <- mapdist("A OSTSTRAAT, ZWIJNDRECHT","Nationalestraat 111, Antwerpen",mode="driving")
df88 <- mapdist("A PEETERSLEI, KALMTHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df89 <- mapdist("A PEETERSSTRAAT, OUD-TURNHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df90 <- mapdist("A PETENLEI, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df91 <- mapdist("A PREUD HOMMESTRAAT, GEEL","Nationalestraat 111, Antwerpen",mode="driving")
df92 <- mapdist("A QUETELETLAAN, EDEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df93 <- mapdist("A REUSENSPLEIN, BRASSCHAAT","Nationalestraat 111, Antwerpen",mode="driving")
df94 <- mapdist("A RODENBACHLAAN, KONTICH","Nationalestraat 111, Antwerpen",mode="driving")
df95 <- mapdist("A RODENBACHLAAN, LINT","Nationalestraat 111, Antwerpen",mode="driving")
df96 <- mapdist("A RODENBACHPLAATS, SCHELLE","Nationalestraat 111, Antwerpen",mode="driving")
df97 <- mapdist("A RODENBACHPLANTSOEN, TURNHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df98 <- mapdist("A RODENBACHSTRAAT, BORGERHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df99 <- mapdist("A RODENBACHSTRAAT, HOVE","Nationalestraat 111, Antwerpen",mode="driving")
df100 <- mapdist("A RODENBACHSTRAAT, NIEL","Nationalestraat 111, Antwerpen",mode="driving")
df101 <- mapdist("A RODENBACHSTRAAT, ZWIJNDRECHT","Nationalestraat 111, Antwerpen",mode="driving")
df102 <- mapdist("A RONCALLILAAN, WILRIJK","Nationalestraat 111, Antwerpen",mode="driving")
df103 <- mapdist("A RYDAMSLAAN, MOL","Nationalestraat 111, Antwerpen",mode="driving")
df104 <- mapdist("A SANDERSLEI, AARTSELAAR","Nationalestraat 111, Antwerpen",mode="driving")
df105 <- mapdist("A SCHEYVAERTSLAAN, EKEREN","Nationalestraat 111, Antwerpen",mode="driving")
df106 <- mapdist("A SCHNEIDERLAAN, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df107 <- mapdist("A SEGERSLEI, MORTSEL","Nationalestraat 111, Antwerpen",mode="driving")
df108 <- mapdist("A SERVAISLEI, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df109 <- mapdist("A SMETSTRAAT, DESSEL","Nationalestraat 111, Antwerpen",mode="driving")
df110 <- mapdist("A SNIEDERSSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df111 <- mapdist("A SOHIESTRAAT, OUD-TURNHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df112 <- mapdist("A SPIETAELSLAAN, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df113 <- mapdist("A STERCKSTRAAT, BERCHEM","Nationalestraat 111, Antwerpen",mode="driving")
df114 <- mapdist("A STERCKXSTRAAT, WESTERLO","Nationalestraat 111, Antwerpen",mode="driving")
df115 <- mapdist("A STOCKMANSLEI, MORTSEL","Nationalestraat 111, Antwerpen",mode="driving")
df116 <- mapdist("A TIRELIRENSTRAAT, ESSEN","Nationalestraat 111, Antwerpen",mode="driving")
df117 <- mapdist("A ULLENSLEI, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df118 <- mapdist("A VAN BRABANTSTRAAT, AARTSELAAR","Nationalestraat 111, Antwerpen",mode="driving")
df119 <- mapdist("A VAN CAUWELAERTLAAN, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df120 <- mapdist("A VAN DAELSTRAAT, WILRIJK","Nationalestraat 111, Antwerpen",mode="driving")
df121 <- mapdist("A VAN DE VELDELAAN, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df122 <- mapdist("A VAN DE WIELELEI, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df123 <- mapdist("A VAN DEN BOSSCHELN, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df124 <- mapdist("A VAN DEN SANDELAAN, SCHILDE","Nationalestraat 111, Antwerpen",mode="driving")
df125 <- mapdist("A VAN DIJCKSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df126 <- mapdist("A VAN DIJCKSTRAAT, GROBBENDONK","Nationalestraat 111, Antwerpen",mode="driving")
df127 <- mapdist("A VAN DIJCKSTRAAT, SCHILDE","Nationalestraat 111, Antwerpen",mode="driving")
df128 <- mapdist("A VAN DIJCKSTRAAT, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df129 <- mapdist("A VAN DIJCKSTRAAT, TURNHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df130 <- mapdist("A VAN HOORNSTRAAT, MORTSEL","Nationalestraat 111, Antwerpen",mode="driving")
df131 <- mapdist("A VAN LANDEGHEMPLEIN, WILLEBROEK","Nationalestraat 111, Antwerpen",mode="driving")
df132 <- mapdist("A VAN LANDEGHEMSTR, WILLEBROEK","Nationalestraat 111, Antwerpen",mode="driving")
df133 <- mapdist("A VAN PUTLEI, BORSBEEK","Nationalestraat 111, Antwerpen",mode="driving")
df134 <- mapdist("A VAN PUTLEI, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df135 <- mapdist("A VAN ROEYENSTRAAT, ZWIJNDRECHT","Nationalestraat 111, Antwerpen",mode="driving")
df136 <- mapdist("A VAN SOLMSSTRAAT, TURNHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df137 <- mapdist("A VAN SOLMSTRAAT, BAARLE-HERTOG","Nationalestraat 111, Antwerpen",mode="driving")
df138 <- mapdist("A VANDERPOORTENLAAN, LIER","Nationalestraat 111, Antwerpen",mode="driving")
df139 <- mapdist("A VERDIJCKSTRAAT, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df140 <- mapdist("A VERHOEVENLAAN, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df141 <- mapdist("A VERHOEVENLAAN, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df142 <- mapdist("A VERHOEVENLAAN, ZANDHOVEN","Nationalestraat 111, Antwerpen",mode="driving")
df143 <- mapdist("A VERMEYLENLAAN, AARTSELAAR","Nationalestraat 111, Antwerpen",mode="driving")
df144 <- mapdist("A VERMEYLENLAAN, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df145 <- mapdist("A VERMEYLENSTRAAT, NIEL","Nationalestraat 111, Antwerpen",mode="driving")
df146 <- mapdist("A VERVLIETLAAN, HEMIKSEM","Nationalestraat 111, Antwerpen",mode="driving")
df147 <- mapdist("A VESALIUSLAAN, EDEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df148 <- mapdist("A VESALIUSLAAN, ZOERSEL","Nationalestraat 111, Antwerpen",mode="driving")
df149 <- mapdist("A VRANCXLAAN, DEURNE","Nationalestraat 111, Antwerpen",mode="driving")
df150 <- mapdist("A WELLENSSTRAAT, WILRIJK","Nationalestraat 111, Antwerpen",mode="driving")
df151 <- mapdist("A WENSSTRAAT, EKEREN","Nationalestraat 111, Antwerpen",mode="driving")
df152 <- mapdist("A WESTERLINCKSTRAAT, GEEL","Nationalestraat 111, Antwerpen",mode="driving")
df153 <- mapdist("A WILLAERTSTRAAT, EDEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df154 <- mapdist("A WOLFSSTRAAT, SCHOTEN","Nationalestraat 111, Antwerpen",mode="driving")
df155 <- mapdist("A YSSACKERSSTRAAT, ESSEN","Nationalestraat 111, Antwerpen",mode="driving")
df156 <- mapdist("A ZONDER GRENZENSTR, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df157 <- mapdist("A. STOCLETLAAN, DUFFEL","Nationalestraat 111, Antwerpen",mode="driving")
df158 <- mapdist("A. VEREECKESTRAAT, HEIST-OP-DEN-BERG","Nationalestraat 111, Antwerpen",mode="driving")
df159 <- mapdist("A.B.STRAAT, MECHELEN","Nationalestraat 111, Antwerpen",mode="driving")
df160 <- mapdist("AAKLAAN, TISSELT","Nationalestraat 111, Antwerpen",mode="driving")
df161 <- mapdist("AALBESLEI, WILRIJK","Nationalestraat 111, Antwerpen",mode="driving")
df162 <- mapdist("AALM CUYPERSLAAN, STABROEK","Nationalestraat 111, Antwerpen",mode="driving")
df163 <- mapdist("AALMOEZENIERSSTRAAT, ANTWERPEN","Nationalestraat 111, Antwerpen",mode="driving")
df164 <- mapdist("AAMBEELDSTRAAT, BEERSE","Nationalestraat 111, Antwerpen",mode="driving")
df165 <- mapdist("AAMBEELDSTRAAT, MECHELEN","Nationalestraat 111, Antwerpen",mode="driving")
df166 <- mapdist("AARDBEEMDEN, MOL","Nationalestraat 111, Antwerpen",mode="driving")
df167 <- mapdist("AARDBEZIENSTRAAT, MEERHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df168 <- mapdist("AARDBRUGGESTRAAT, NIJLEN","Nationalestraat 111, Antwerpen",mode="driving")
df169 <- mapdist("AARDEKENSWEG, OOSTMALLE","Nationalestraat 111, Antwerpen",mode="driving")
df170 <- mapdist("AARDESTRAAT, BONHEIDEN","Nationalestraat 111, Antwerpen",mode="driving")
df171 <- mapdist("AARDSEWEG, GEEL","Nationalestraat 111, Antwerpen",mode="driving")
df172 <- mapdist("AARDSTRAAT, KESSEL","Nationalestraat 111, Antwerpen",mode="driving")
df173 <- mapdist("AARDVELDEN, SINT-KATELIJNE-WAVER","Nationalestraat 111, Antwerpen",mode="driving")
df174 <- mapdist("AARLE, POPPEL","Nationalestraat 111, Antwerpen",mode="driving")
df175 <- mapdist("AARLEDIJK, POPPEL","Nationalestraat 111, Antwerpen",mode="driving")
df176 <- mapdist("AARSCHOTBAAN, BEERZEL","Nationalestraat 111, Antwerpen",mode="driving")
df177 <- mapdist("AARSCHOTSEBAAN, BERLAAR","Nationalestraat 111, Antwerpen",mode="driving")
df178 <- mapdist("AARSCHOTSEBAAN, HOUTVENNE","Nationalestraat 111, Antwerpen",mode="driving")
df179 <- mapdist("AARSCHOTSESTEENWEG, HERSELT","Nationalestraat 111, Antwerpen",mode="driving")
df180 <- mapdist("AARSCHOTSESTEENWEG, KONINGSHOOIKT","Nationalestraat 111, Antwerpen",mode="driving")
df181 <- mapdist("AARSCHOTSESTEENWEG, LIER","Nationalestraat 111, Antwerpen",mode="driving")
df182 <- mapdist("AARSCHOTSESTEENWEG, RAMSEL","Nationalestraat 111, Antwerpen",mode="driving")
df183 <- mapdist("AARSCHOTSEWEG, HERENTALS","Nationalestraat 111, Antwerpen",mode="driving")
df184 <- mapdist("AARSCHOTSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df185 <- mapdist("AARTHOF, TONGERLO","Nationalestraat 111, Antwerpen",mode="driving")
df186 <- mapdist("AARTRIJTSTRAAT, ARENDONK","Nationalestraat 111, Antwerpen",mode="driving")
df187 <- mapdist("AARTSELAARSTRAAT, EDEGEM","Nationalestraat 111, Antwerpen",mode="driving")
df188 <- mapdist("AARTSELAARSTRAAT, HOBOKEN","Nationalestraat 111, Antwerpen",mode="driving")
df189 <- mapdist("AASTRAAT, OUD-TURNHOUT","Nationalestraat 111, Antwerpen",mode="driving")
df190 <- mapdist("ABDIJLAAN, BRECHT","Nationalestraat 111, Antwerpen",mode="driving")
df191 <- mapdist("ABDIJLAAN, MOL","Nationalestraat 111, Antwerpen",mode="driving")
df192 <- mapdist("ABDIJLAAN, ZOERSEL","Nationalestraat 111, Antwerpen",mode="driving")
df193 <- mapdist("ABDIJSTRAAT, Antwerpen","Nationalestraat 111, Antwerpen",mode="driving")
df194 <- mapdist("ABDIJSTRAAT, BEERSE","Nationalestraat 111, Antwerpen",mode="driving")
df195 <- mapdist("ABDIJSTRAAT, HEMIKSEM","Nationalestraat 111, Antwerpen",mode="driving")
df196 <- mapdist("ABDIJSTRAAT, TONGERLO","Nationalestraat 111, Antwerpen",mode="driving")
df197 <- mapdist("ABDON BRAECKMANSSTR, RUMST","Nationalestraat 111, Antwerpen",mode="driving")
df198 <- mapdist("ABEEL, SINT-KATELIJNE-WAVER","Nationalestraat 111, Antwerpen",mode="driving")
df199 <- mapdist("ABEELSTRAAT, BOOISCHOT","Nationalestraat 111, Antwerpen",mode="driving")

之后，我会将这些数据帧合并为一个数据帧并将其导出为CSV文件。

尽管如此，当我执行一大堆请求时，我会收到几条错误消息，看起来像这样：

匹配并不完美，返回发现的内容。错误 *tmp* [[c（1,1）]]：在第1级没有这样的索引

此消息并未在每个请求中到达，但似乎在多个请求中随机出现。

有关为什么会出现此错误以及如何解决此问题的任何建议？

Answer 1

正如@Pascal所提到的，你的示例代码返回正常。您是否检查过您没有超出Google API限制。它目前每天2500个，并且每秒也有一个限制，我现在不能记得。

每秒大约可以发送/接收约5个请求。尝试将其分成块并添加延迟。

修改

如果您需要手动添加延迟，请使用Sys.sleep(x)，其中x是以秒为单位的时间。

另外一个建议是，添加将所有数据框添加到单个列表中可能是一个好主意，可以使您的环境更清洁，更易于管理。然后，您可以遍历列表，创建最终的数据帧。

dist_list <- list() dist_list$df1 <- ggmap::... dist_list$df2 <- ggmap::... df <- do.call("rbind", dist_list)

编辑2

虽然我刚刚意识到你的df15因为缺少公里/英里等而与通常的8列相比创建了6列df。因此do.call()将会失败。

因此你可以使用：

df <- dist_list[[1]] for (i in 2:length(dist_list)) { if (ncol(dist_list[[i]]) == ncol(df)){ df <- rbind(df, dist_list[[i]]) } }

然后将创建一个包含所有完全构造方向的df。

BTW我从来没有收到任何测试错误的错误。我将是API限制

ggmap：使用mapdist函数

1 个答案: