In[]:=
(*Fullorderedlistoflocations*)locations={"Reno, NV","Chicago, IL","Fargo, ND","Saint Paul, MN","Buffalo, NY","Toronto, ON","Winslow, AZ","Sarasota, FL","Wichita, KS","Tulsa, OK","Ottawa, ON","Oklahoma City, OK","Tampa, FL","Panama City, FL","Mattawa, ON","Montevideo, Uruguay","Bangor, ME","Baltimore, MD","San Salvador, El Salvador","Amarillo, TX","Tocopilla, Chile","Barranquilla, Colombia","Bartow, FL","Boston, MA","Charleston, SC","Dayton, OH","Baton Rouge, LA","Washington, DC","Houston, TX","Kingston, ON","Texarkana, TX","Monterey, CA","Santa Fe, NM","Tallapoosa, GA","Glen Rock, NJ","Little Rock, AR","Oskaloosa, IA","Nashville, TN","Hennessey, OK","Chicopee, MA","Spirit Lake, IA","Grand Lake, CO","Devils Lake, ND","Louisville, KY","Knoxville, TN","Jacksonville, FL","Waterville, ME","San Jose, Costa Rica","Pittsfield, MA","Springfield, IL","Bakersfield, CA","Shreveport, LA","Hackensack, NJ","Cadillac, MI","Fond du Lac, WI","Davenport, IA","Boise, ID","Jellico, TN","Buenos Aires, Argentina","Diamantina, Brazil","Pasadena, CA","Avalon, CA","Pittsburgh, PA","Parkersburg, WV","Gravelbourg, Saskatchewan","Denver, CO","Ellensburg, WA","Rexburg, ID","Vicksburg, MS","El Dorado, AR","Larimore, ND","Atmore, AL","Haverstraw, NY","Fairbanks, AK","Chaska, MN","Lincoln, NE","Juneau, AK","Opelika, AL","Baraboo, WI","Waterloo, IA","Kalamazoo, MI","Kansas City, MO","Sioux City, IA","Cedar City, UT","Dodge City, KS"};
In[]:=
(*Interpretcitiesdefensively*)cityEntities=DeleteCases[Interpreter["City"]/@locations,_Failure|$Failed];(*Removeduplicateswhilepreservingorder*)cityEntities=DeleteDuplicates[cityEntities];(*Extractcoordinates*)coords=EntityValue[cityEntities,"Coordinates"];(*Buildlabeledgeodesicpaths*)paths=Table[Tooltip[GeoPath[{coords[[i]],coords[[i+1]]},"Geodesic"],CommonName[cityEntities[[i]]]<>" → "<>CommonName[cityEntities[[i+1]]]],{i,Length[coords]-1}];(*Buildlabeledpoints*)points=MapThread[Tooltip[{Orange,PointSize[Medium],Point[GeoPosition[#2]]},CommonName[#1]]&,{cityEntities,coords}];
In[]:=
(*Rendermap*)GeoGraphics[{Thick,Blue,paths,points},GeoRange"World",GeoProjection"Robinson",ImageSizeLarge]
Out[]=
