Creación de histogramas a partir de ubicaciones ponderadas
Por cada uno de los 50 aeropuertos con mayor tráfico en Europa, pondere la ubicación del aeropuerto con el número de pasajeros que sirve.
In[1]:=
data = {Entity[
"City", {"London", "GreaterLondon", "UnitedKingdom"}] ->
74985748,
Entity["City", {"Paris", "IleDeFrance", "France"}] -> 65766986,
Entity["City", {"Istanbul", "Istanbul", "Turkey"}] -> 61322729,
Entity["City", {"Frankfurt", "Hesse", "Germany"}] -> 61032022,
Entity["City", {"Amsterdam", "NoordHolland", "Netherlands"}] ->
58285118,
Entity["City", {"Madrid", "Madrid", "Spain"}] -> 46828279,
Entity["City", {"Munich", "Bavaria", "Germany"}] -> 40981522,
Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}] ->
40269087, Entity["City", {"Rome", "Lazio", "Italy"}] -> 40233507,
Entity["City", {"Barcelona", "Barcelona", "Spain"}] -> 39711276,
Entity["City", {"Moscow", "Moscow", "Russia"}] -> 31279508,
Entity["City", {"Moscow", "Moscow", "Russia"}] -> 30504515,
Entity["City", {"Paris", "IleDeFrance", "France"}] -> 29664993,
Entity["City", {"Istanbul", "Istanbul", "Turkey"}] -> 28112438,
Entity["City", {"Antalya", "Antalya", "Turkey"}] -> 27724249,
Entity["City", {"Copenhagen", "Copenhagen", "Denmark"}] ->
26610332,
Entity["City", {"Zurich", "Zurich", "Switzerland"}] -> 26281228,
Entity["City", {"Dublin", "Dublin", "Ireland"}] -> 25049335,
Entity["City", {"Oslo", "Oslo", "Norway"}] -> 24678195,
Entity["City", {"Palma", "Balears", "Spain"}] -> 23745131,
Entity["City", {"Brussels", "Brussels", "Belgium"}] -> 23460018,
Entity["City", {"Stockholm", "Stockholm", "Sweden"}] -> 23142536,
Entity["City", {"Manchester", "Manchester", "UnitedKingdom"}] ->
23136047,
Entity["City", {"Vienna", "Vienna", "Austria"}] -> 22775054,
Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}] ->
22519178,
Entity["City", {"Dusseldorf", "NorthRhineWestphalia",
"Germany"}] -> 22476685,
Entity["City", {"Berlin", "Berlin", "Germany"}] -> 21005196,
Entity["City", {"Lisbon", "Lisboa", "Portugal"}] -> 20090418,
Entity["City", {"Milan", "Lombardy", "Italy"}] -> 18582043,
Entity["City", {"Athens", "Attiki", "Greece"}] -> 18086894,
Entity["City", {"Helsinki", "Uusimaa", "Finland"}] -> 16422266,
Entity["City", {"Moscow", "Moscow", "Russia"}] -> 15815129,
Entity["City", {"Geneva", "Geneva", "Switzerland"}] -> 15772081,
Entity["City", {"Hamburg", "Hamburg", "Germany"}] -> 15610072,
Entity["City", {"Malaga", "Malaga", "Spain"}] -> 1440417,
Entity["City", {"SaintPetersburg", "SaintPetersburg", "Russia"}] ->
13501454,
Entity["City", {"Ankara", "Ankara", "Turkey"}] -> 12326869,
Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}] ->
12263505,
Entity["City", {"Izmir", "Izmir", "Turkey"}] -> 12139788,
Entity["City", {"Prague", "Prague", "CzechRepublic"}] -> 12030928,
Entity["City", {"Nice", "ProvenceAlpesCoteDAzur", "France"}] ->
1201673,
Entity["City", {"Warsaw", "Mazowieckie", "Poland"}] -> 1120670,
Entity["City", {"Edinburgh", "Edinburgh", "UnitedKingdom"}] ->
11114587,
Entity["City", {"LasPalmas", "LasPalmas", "Spain"}] -> 10627182,
Entity["City", {"Alicante", "Alacant", "Spain"}] -> 10574484,
Entity["City", {"Stuttgart", "BadenWurttemberg", "Germany"}] ->
10512225,
Entity["City", {"Milan", "Lombardy", "Italy"}] -> 10404625,
Entity["City", {"Cologne", "NorthRhineWestphalia", "Germany"}] ->
10338375,
Entity["City", {"Budapest", "Budapest", "Hungary"}] -> 10298963,
Entity["City", {"Birmingham", "Birmingham", "UnitedKingdom"}] ->
10187122};
Cree un histograma asumiendo el total de pasajeros de todos los aeropuertos en cada país.
In[2]:=
GeoHistogram[data, "Country", ColorFunction -> "Rainbow",
PlotLegends -> Automatic, ImageSize -> 450, GeoZoomLevel -> 4,
GeoRange -> Entity["GeographicRegion", "Europe"]]
Out[2]=