Reactores nucleares del mundo
NuclearReactorData proporciona datos de los reactores nucleares conocidos en todo el mundo. Algunos de ellos ya han sido cerrados, como el de Chernobyl. Usted puede seleccionar los reactores que están operando hoy en día para el análisis de recursos de energía nuclear.
![Click for copyable input](assets.es/world-nuclear-reactors/In_74.png)
reactors = NuclearReactorData[];
![Click for copyable input](assets.es/world-nuclear-reactors/In_75.png)
active = Select[reactors, #["Status"] == "operational" &];
Extraiga la producción de energía anual y el país donde se ubica.
![Click for copyable input](assets.es/world-nuclear-reactors/In_76.png)
annualproduction =
NuclearReactorData[active, "AnnualEnergyProduction"];
countries = Map[First, NuclearReactorData[active, "Countries"]];
Cree una base de datos y elimine los puntos de datos que contengan valores faltantes. El número de reactores en funcionamiento es mayor a 400.
![Click for copyable input](assets.es/world-nuclear-reactors/In_77.png)
data = Transpose[{active, countries, annualproduction}];
data = DeleteMissing[data, 1, 2];
![Click for copyable input](assets.es/world-nuclear-reactors/In_78.png)
data // Dimensions
![](assets.es/world-nuclear-reactors/O_56.png)
El número de reactores por país.
![Click for copyable input](assets.es/world-nuclear-reactors/In_79.png)
percountry = GroupBy[data, #1[[2]] &];
![Click for copyable input](assets.es/world-nuclear-reactors/In_80.png)
numberpercountry = Map[Length, percountry];
![Click for copyable input](assets.es/world-nuclear-reactors/In_81.png)
BarChart[Sort[numberpercountry], ChartLabels -> Automatic,
ChartStyle -> "DarkRainbow", BarOrigin -> Left, BarSpacing -> 1,
LabelingFunction -> (Placed[#1, After] &), ImageSize -> Large]
![](assets.es/world-nuclear-reactors/O_57.png)
El número de reactores corresponde al total de energía nuclear producida por país.
![Click for copyable input](assets.es/world-nuclear-reactors/In_82.png)
energytotals = Map[Total[#[[All, 3]]] &, percountry];
![Click for copyable input](assets.es/world-nuclear-reactors/In_83.png)
stats = {Min, Max, Mean, Median, Total};
TableForm[#[energytotals] & /@ stats, TableHeadings -> {stats}]
![](assets.es/world-nuclear-reactors/O_58.png)
Los mayores productores de energía nuclear son Estados Unidos y Francia.
![Click for copyable input](assets.es/world-nuclear-reactors/In_84.png)
TakeLargest[energytotals, 2]
![](assets.es/world-nuclear-reactors/O_59.png)
![](assets.es/world-nuclear-reactors/O_60.png)
El mapa se ve distinto si usted considera la producción de energía total por persona. Utilice CountryData para acceder a los totales de población de cada país en la lista.
![Click for copyable input](assets.es/world-nuclear-reactors/In_86.png)
populations =
AssociationThread[Keys[energytotals],
CountryData[#, "Population"] & /@ Keys[energytotals]];
Calcule la energía nuclear por persona.
![Click for copyable input](assets.es/world-nuclear-reactors/In_87.png)
energypercapita = energytotals/populations;
![Click for copyable input](assets.es/world-nuclear-reactors/In_88.png)
TableForm[#[energypercapita] & /@ stats, TableHeadings -> {stats}]
![](assets.es/world-nuclear-reactors/O_61.png)
En el mapa, usted puede ver que aunque Estados Unidos tiene la producción de energía nuclear absoluta más alta, no es la más alta por persona, donde Francia y Suecia lideran.
![Click for copyable input](assets.es/world-nuclear-reactors/In_89.png)
TakeLargest[energypercapita, 2]
![](assets.es/world-nuclear-reactors/O_62.png)
![](assets.es/world-nuclear-reactors/O_63.png)