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]:=

Out[1]=

Get the geographic position of London.

In[2]:=

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]=