Faça um mapa de custos de viagem aérea 

Crie um mapa mostrando os custos de voos saindo de Londres para outros países.

Importe os dados relativos aos preços das viagens.

In[1]:=

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

Out[1]=

Obtenha a posição geográfica de Londres.

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

Obtenha o preço máximo de uma passagem aérea.

In[3]:=

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

Out[3]=

Crie um mapa mostrando as opções de voo mais baratas em azul e as mais caras em laranja.

In[4]:=

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

Out[4]=