Make a Map of Flight Costs 

Make a map showing the relative costs of flights from London to other countries.

Import data on flight costs.

In[1]:=

X data = SemanticImport["ExampleData/countries-currency"]

Out[1]=

Get the geographic position of London.

In[2]:=

X london = \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "London", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"London\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"London\"", ",", "\"GreaterLondon\"", ",", "\"UnitedKingdom\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"London\\\", \ \\\"GreaterLondon\\\", \\\"UnitedKingdom\\\"}]\"", "\"city\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "London", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "4", "Values" -> {{ "name" -> "City", "desc" -> "a city", "input" -> "*C.London-_*City-"}, { "name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.London-_*AdministrativeDivision-"}, { "name" -> "Surname", "desc" -> "a surname", "input" -> "*C.London-_*Surname-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.London-_*GivenName-"}}}, { "type" -> "SubCategory", "word" -> "London", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "7", "Values" -> {{ "name" -> "{London, GreaterLondon, UnitedKingdom}", "desc" -> "London (United Kingdom)", "input" -> "*DPClash.CityE.London-_**London.GreaterLondon.\ UnitedKingdom--"}, { "name" -> "{London, Ontario, Canada}", "desc" -> "London (Canada)", "input" -> "*DPClash.CityE.London-_**London.Ontario.Canada-\ -"}, {"name" -> "{London, Ohio, UnitedStates}", "desc" -> "London (Ohio, USA)", "input" -> "*DPClash.CityE.London-_**London.Ohio.\ UnitedStates--"}, { "name" -> "{London, Kentucky, UnitedStates}", "desc" -> "London (Kentucky, USA)", "input" -> "*DPClash.CityE.London-_**London.Kentucky.\ UnitedStates--"}, { "name" -> "{London, Arkansas, UnitedStates}", "desc" -> "London (Arkansas, USA)", "input" -> "*DPClash.CityE.London-_**London.Arkansas.\ UnitedStates--"}, { "name" -> "{London, California, UnitedStates}", "desc" -> "London (California, USA)", "input" -> "*DPClash.CityE.London-_**London.California.\ UnitedStates--"}, { "name" -> "{London, Kiritimati, Kiribati}", "desc" -> "London (Kiribati)", "input" -> "*DPClash.CityE.London-_**London.Kiritimati.\ Kiribati--"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{132., {10., 18.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["Position"]

Out[2]=

Get the maximum price of a flight.

In[3]:=

X maxPrice = Max[data[[All, "Price"]]]

Out[3]=

Make a map showing the least expensive flight routes in blue and the most expensive in orange.

In[4]:=

X GeoGraphics[{AbsoluteThickness[2], Normal[{ Blend[{Blue, Orange}, #["Price"]/maxPrice], GeoPath[{london, #["Flight Costs"]["Position"]}] } & /@ data[SortBy[Key["Price"]]]]}]

Out[4]=