Wolfram Language

Medidas em probabilidade e estatística

Reatores nucleares

NuclearReactorData fornece dados sobre os reatores nucleares conhecidos em todo o mundo. Alguns deles já foram desativados, como Chernobyl. Você pode selecionar os reatores que estão ativos atualmente para a análise dos recursos energéticos nucleares.

In[1]:=
Click for copyable input
reactors = NuclearReactorData[];
In[2]:=
Click for copyable input
active = Keys@ Select[EntityValue["NuclearReactor", "Status", "EntityAssociation"], # === "operational" &];

Extraia a produção de energia anual e o país em que se encontra.

In[3]:=
Click for copyable input
annualproduction = NuclearReactorData[active, "AnnualEnergyProduction"]; countries = Map[First, NuclearReactorData[active, "Countries"]];

Crie um conjunto de dados e remova os pontos de dados que contêm valores que estejam faltando. O número de rectores em funcionamento é acima de 400.

In[4]:=
Click for copyable input
data = Transpose[{active, countries, annualproduction}]; data = DeleteMissing[data, 1, 2];
In[5]:=
Click for copyable input
data // Dimensions
Out[5]=

O número de reatores por país.

In[6]:=
Click for copyable input
percountry = GroupBy[data, #1[[2]] &];
In[7]:=
Click for copyable input
numberpercountry = Map[Length, percountry];
In[8]:=
Click for copyable input
BarChart[Sort[numberpercountry], ChartLabels -> Automatic, ChartStyle -> "DarkRainbow", BarOrigin -> Left, BarSpacing -> 1, LabelingFunction -> (Placed[#1, After] &), ImageSize -> Large]
In[9]:=
Click for copyable input
\!\(\* GraphicsBox[{ {Opacity[0], PointBox[{{0., 0.16000000000000003`}, {0., 30.25}}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], {RGBColor[0.237736, 0.340215, 0.575113], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.75}, {1., 1.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 77.82608908948194}, {132.91121946391644`, 138.35746987407967`}}]}, {RGBColor[ 0.24322393103448275`, 0.34182810344827586`, 0.5692640344827586], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.75}, {1., 2.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 77.82608908948194}, {123.01871864358999`, 128.4649690537532}}]}, {RGBColor[ 0.24871186206896553`, 0.3434412068965517, 0.5634150689655172], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.75}, {1., 3.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 77.82608908948194}, {113.12621782326354`, 118.57246823342678`}}]}, {RGBColor[0.2540225172413793, 0.3475871724137931, 0.5521768275862069], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.75}, {2., 4.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 82.4021781789639}, {103.23371700293708`, 108.67996741310031`}}]}, {RGBColor[ 0.2577376896551724, 0.37452889655172417`, 0.49243510344827585`], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.75}, {2., 5.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 82.4021781789639}, {93.34121618261065, 98.78746659277387}}]}, {RGBColor[ 0.26145286206896556`, 0.40147062068965517`, 0.4326933793103448], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.75}, {2., 6.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 82.4021781789639}, {83.44871536228419, 88.89496577244742}}]}, {RGBColor[ 0.26629010344827586`, 0.42675820689655175`, 0.3770731724137931], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6.75}, {2., 7.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 82.4021781789639}, {73.55621454195774, 79.00246495212097}}]}, {RGBColor[ 0.27561562068965517`, 0.44542924137931034`, 0.33793903448275864`], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7.75}, {2., 8.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 82.4021781789639}, {63.6637137216313, 69.10996413179453}}]}, {RGBColor[ 0.2849411379310345, 0.464100275862069, 0.29880489655172415`], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.75}, {2., 9.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 82.4021781789639}, {53.77121290130485, 59.21746331146808}}]}, {RGBColor[ 0.30439227586206896`, 0.48525706896551724`, 0.26834986206896555`], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 9.75}, {3., 10.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 86.97826726844585}, {43.8787120809784, 49.32496249114163}}]}, {RGBColor[ 0.34746986206896546`, 0.5122139655172414, 0.25814606896551723`], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 10.75}, {4., 11.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 91.55435635792779}, {33.986211260651956`, 39.43246167081517}}]}, {RGBColor[ 0.3905474482758621, 0.5391708620689655, 0.24794227586206896`], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 11.75}, {4., 12.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 91.55435635792779}, {24.09371044032551, 29.539960850488725`}}]}, {RGBColor[ 0.44514875862068964`, 0.5716149310344827, 0.24492013793103448`], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 12.75}, {4., 13.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 91.55435635792779}, {14.201209619999048`, 19.64746003016228}}]}, {RGBColor[0.5170356551724138, 0.6122897586206896, 0.2526704827586207], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 13.75}, {5., 14.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 96.13044544740973}, {4.308708799672615, 9.754959209835846}}]}, {RGBColor[0.5889225517241379, 0.6529645862068965, 0.2604208275862069], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 14.75}, {6., 15.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 100.70653453689168`}, {-5.583792020653846, \ -0.13754161049061508`}}]}, {RGBColor[0.6573085862068966, 0.6893347586206896, 0.2710480689655172], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 15.75}, {6., 16.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 100.70653453689168`}, {-15.476292840980278`, \ -10.030042430817076`}}]}, {RGBColor[0.7221937586206897, 0.7214002758620689, 0.2845522068965517], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 16.75}, {7., 17.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 105.28262362637363`}, {-25.36879366130674, \ -19.92254325114351}}]}, {RGBColor[0.7870789310344828, 0.7534657931034483, 0.2980563448275862], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 17.75}, {8., 18.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 109.85871271585557`}, {-35.2612944816332, \ -29.81504407146997}}]}, {RGBColor[ 0.8264485862068965, 0.7589995172413793, 0.30830724137931037`], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 18.75}, {9., 19.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 114.43480180533751`}, {-45.15379530195963, \ -39.7075448917964}}]}, {RGBColor[0.8488078965517241, 0.7468453793103448, 0.3163893103448276], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 19.75}, {10., 20.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 119.01089089481947`}, {-55.046296122286094`, \ -49.60004571212286}}]}, {RGBColor[ 0.8711672068965517, 0.7346912413793103, 0.32447137931034487`], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 20.75}, {14., 21.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 137.31524725274727`}, {-64.93879694261253, \ -59.492546532449296`}}]}, {RGBColor[0.8621689310344827, 0.6797878620689655, 0.3212387931034483], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 21.75}, {15., 22.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 141.8913363422292}, {-74.83129776293899, \ -69.38504735277576}}]}, {RGBColor[ 0.8397316896551723, 0.6065633793103448, 0.31315706896551726`], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 22.75}, {17., 23.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 151.0435145211931}, {-84.72379858326542, \ -79.27754817310222}}]}, {RGBColor[0.8172944482758621, 0.5333388965517241, 0.3050753448275862], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 23.75}, {18., 24.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 155.61960361067503`}, {-94.61629940359188, \ -89.17004899342865}}]}, {RGBColor[ 0.7899278275862068, 0.44164710344827585`, 0.2834595517241379], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 24.75}, {20., 25.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 164.77178178963894`}, {-104.50880022391831`, \ -99.06254981375511}}]}, {RGBColor[ 0.7613288620689656, 0.3453384827586207, 0.25846024137931034`], EdgeForm[{Opacity[0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 25.75}, {21., 26.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 169.34787087912088`}, {-114.4013010442448, \ -108.95505063408154`}}]}, {RGBColor[ 0.7327298965517242, 0.24902986206896555`, 0.23346093103448276`], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 26.75}, {32., 27.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 219.6848508634223}, {-124.29380186457121`, \ -118.847551454408}}]}, {RGBColor[0.72987, 0.239399, 0.230961], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 27.75}, {44., 28.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 274.5979199372057}, {-134.18630268489767`, \ -128.74005227473447`}}]}, {RGBColor[0.72987, 0.239399, 0.230961], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 28.75}, {58., 29.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 338.6631671899529}, {-144.07880350522413`, \ -138.63255309506087`}}]}, {RGBColor[0.72987, 0.239399, 0.230961], EdgeForm[{Opacity[ 0.48999999999999994`], Thickness[Small]}], DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 29.75}, {104., 30.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{72.75, 549.1632653061224}, {-153.9713043255506, \ -148.52505391538733`}}]}}, {}, {}}, {}, { InsetBox["1", Offset[{6, 0}, {1., 1.}], ImageScaled[{0, 0.5}]], InsetBox["1", Offset[{6, 0}, {1., 2.}], ImageScaled[{0, 0.5}]], InsetBox["1", Offset[{6, 0}, {1., 3.}], ImageScaled[{0, 0.5}]], InsetBox["2", Offset[{6, 0}, {2., 4.}], ImageScaled[{0, 0.5}]], InsetBox["2", Offset[{6, 0}, {2., 5.}], ImageScaled[{0, 0.5}]], InsetBox["2", Offset[{6, 0}, {2., 6.}], ImageScaled[{0, 0.5}]], InsetBox["2", Offset[{6, 0}, {2., 7.}], ImageScaled[{0, 0.5}]], InsetBox["2", Offset[{6, 0}, {2., 8.}], ImageScaled[{0, 0.5}]], InsetBox["2", Offset[{6, 0}, {2., 9.}], ImageScaled[{0, 0.5}]], InsetBox["3", Offset[{6, 0}, {3., 10.}], ImageScaled[{0, 0.5}]], InsetBox["4", Offset[{6, 0}, {4., 11.}], ImageScaled[{0, 0.5}]], InsetBox["4", Offset[{6, 0}, {4., 12.}], ImageScaled[{0, 0.5}]], InsetBox["4", Offset[{6, 0}, {4., 13.}], ImageScaled[{0, 0.5}]], InsetBox["5", Offset[{6, 0}, {5., 14.}], ImageScaled[{0, 0.5}]], InsetBox["6", Offset[{6, 0}, {6., 15.}], ImageScaled[{0, 0.5}]], InsetBox["6", Offset[{6, 0}, {6., 16.}], ImageScaled[{0, 0.5}]], InsetBox["7", Offset[{6, 0}, {7., 17.}], ImageScaled[{0, 0.5}]], InsetBox["8", Offset[{6, 0}, {8., 18.}], ImageScaled[{0, 0.5}]], InsetBox["9", Offset[{6, 0}, {9., 19.}], ImageScaled[{0, 0.5}]], InsetBox["10", Offset[{6, 0}, {10., 20.}], ImageScaled[{0, 0.5}]], InsetBox["14", Offset[{6, 0}, {14., 21.}], ImageScaled[{0, 0.5}]], InsetBox["15", Offset[{6, 0}, {15., 22.}], ImageScaled[{0, 0.5}]], InsetBox["17", Offset[{6, 0}, {17., 23.}], ImageScaled[{0, 0.5}]], InsetBox["18", Offset[{6, 0}, {18., 24.}], ImageScaled[{0, 0.5}]], InsetBox["20", Offset[{6, 0}, {20., 25.}], ImageScaled[{0, 0.5}]], InsetBox["21", Offset[{6, 0}, {21., 26.}], ImageScaled[{0, 0.5}]], InsetBox["32", Offset[{6, 0}, {32., 27.}], ImageScaled[{0, 0.5}]], InsetBox["44", Offset[{6, 0}, {44., 28.}], ImageScaled[{0, 0.5}]], InsetBox["58", Offset[{6, 0}, {58., 29.}], ImageScaled[{0, 0.5}]], InsetBox["104", Offset[{6, 0}, {104., 30.}], ImageScaled[{0, 0.5}]]}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.16000000000000003`}, {0., 30.8518}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.75}, Offset[{-6., 0.}, {0., 0.75}]}], LineBox[{{0., 30.25}, Offset[{-6., 0.}, {0., 30.25}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {LineBox[{{0., 1.25}, Offset[{-4., 0.}, {0., 1.25}]}], LineBox[{{0., 1.75}, Offset[{-4., 0.}, {0., 1.75}]}], LineBox[{{0., 2.25}, Offset[{-4., 0.}, {0., 2.25}]}], LineBox[{{0., 2.75}, Offset[{-4., 0.}, {0., 2.75}]}], LineBox[{{0., 3.25}, Offset[{-4., 0.}, {0., 3.25}]}], LineBox[{{0., 3.75}, Offset[{-4., 0.}, {0., 3.75}]}], LineBox[{{0., 4.25}, Offset[{-4., 0.}, {0., 4.25}]}], LineBox[{{0., 4.75}, Offset[{-4., 0.}, {0., 4.75}]}], LineBox[{{0., 5.25}, Offset[{-4., 0.}, {0., 5.25}]}], LineBox[{{0., 5.75}, Offset[{-4., 0.}, {0., 5.75}]}], LineBox[{{0., 6.25}, Offset[{-4., 0.}, {0., 6.25}]}], LineBox[{{0., 6.75}, Offset[{-4., 0.}, {0., 6.75}]}], LineBox[{{0., 7.25}, Offset[{-4., 0.}, {0., 7.25}]}], LineBox[{{0., 7.75}, Offset[{-4., 0.}, {0., 7.75}]}], LineBox[{{0., 8.25}, Offset[{-4., 0.}, {0., 8.25}]}], LineBox[{{0., 8.75}, Offset[{-4., 0.}, {0., 8.75}]}], LineBox[{{0., 9.25}, Offset[{-4., 0.}, {0., 9.25}]}], LineBox[{{0., 9.75}, Offset[{-4., 0.}, {0., 9.75}]}], LineBox[{{0., 10.25}, Offset[{-4., 0.}, {0., 10.25}]}], LineBox[{{0., 10.75}, Offset[{-4., 0.}, {0., 10.75}]}], LineBox[{{0., 11.25}, Offset[{-4., 0.}, {0., 11.25}]}], LineBox[{{0., 11.75}, Offset[{-4., 0.}, {0., 11.75}]}], LineBox[{{0., 12.25}, Offset[{-4., 0.}, {0., 12.25}]}], LineBox[{{0., 12.75}, Offset[{-4., 0.}, {0., 12.75}]}], LineBox[{{0., 13.25}, Offset[{-4., 0.}, {0., 13.25}]}], LineBox[{{0., 13.75}, Offset[{-4., 0.}, {0., 13.75}]}], LineBox[{{0., 14.25}, Offset[{-4., 0.}, {0., 14.25}]}], LineBox[{{0., 14.75}, Offset[{-4., 0.}, {0., 14.75}]}], LineBox[{{0., 15.25}, Offset[{-4., 0.}, {0., 15.25}]}], LineBox[{{0., 15.75}, Offset[{-4., 0.}, {0., 15.75}]}], LineBox[{{0., 16.25}, Offset[{-4., 0.}, {0., 16.25}]}], LineBox[{{0., 16.75}, Offset[{-4., 0.}, {0., 16.75}]}], LineBox[{{0., 17.25}, Offset[{-4., 0.}, {0., 17.25}]}], LineBox[{{0., 17.75}, Offset[{-4., 0.}, {0., 17.75}]}], LineBox[{{0., 18.25}, Offset[{-4., 0.}, {0., 18.25}]}], LineBox[{{0., 18.75}, Offset[{-4., 0.}, {0., 18.75}]}], LineBox[{{0., 19.25}, Offset[{-4., 0.}, {0., 19.25}]}], LineBox[{{0., 19.75}, Offset[{-4., 0.}, {0., 19.75}]}], LineBox[{{0., 20.25}, Offset[{-4., 0.}, {0., 20.25}]}], LineBox[{{0., 20.75}, Offset[{-4., 0.}, {0., 20.75}]}], LineBox[{{0., 21.25}, Offset[{-4., 0.}, {0., 21.25}]}], LineBox[{{0., 21.75}, Offset[{-4., 0.}, {0., 21.75}]}], LineBox[{{0., 22.25}, Offset[{-4., 0.}, {0., 22.25}]}], LineBox[{{0., 22.75}, Offset[{-4., 0.}, {0., 22.75}]}], LineBox[{{0., 23.25}, Offset[{-4., 0.}, {0., 23.25}]}], LineBox[{{0., 23.75}, Offset[{-4., 0.}, {0., 23.75}]}], LineBox[{{0., 24.25}, Offset[{-4., 0.}, {0., 24.25}]}], LineBox[{{0., 24.75}, Offset[{-4., 0.}, {0., 24.75}]}], LineBox[{{0., 25.25}, Offset[{-4., 0.}, {0., 25.25}]}], LineBox[{{0., 25.75}, Offset[{-4., 0.}, {0., 25.75}]}], LineBox[{{0., 26.25}, Offset[{-4., 0.}, {0., 26.25}]}], LineBox[{{0., 26.75}, Offset[{-4., 0.}, {0., 26.75}]}], LineBox[{{0., 27.25}, Offset[{-4., 0.}, {0., 27.25}]}], LineBox[{{0., 27.75}, Offset[{-4., 0.}, {0., 27.75}]}], LineBox[{{0., 28.25}, Offset[{-4., 0.}, {0., 28.25}]}], LineBox[{{0., 28.75}, Offset[{-4., 0.}, {0., 28.75}]}], LineBox[{{0., 29.25}, Offset[{-4., 0.}, {0., 29.25}]}], LineBox[{{0., 29.75}, Offset[{-4., 0.}, {0., 29.75}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox[ InterpretationBox["\<\"Netherlands\"\>", Entity["Country", "Netherlands"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 1.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Armenia\"\>", Entity["Country", "Armenia"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 2.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Slovenia\"\>", Entity["Country", "Slovenia"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 3.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Brazil\"\>", Entity["Country", "Brazil"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 4.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Argentina\"\>", Entity["Country", "Argentina"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 5.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Bulgaria\"\>", Entity["Country", "Bulgaria"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 6.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Romania\"\>", Entity["Country", "Romania"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 7.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"South Africa\"\>", Entity["Country", "SouthAfrica"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 8.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Mexico\"\>", Entity["Country", "Mexico"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 9.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Pakistan\"\>", Entity["Country", "Pakistan"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 10.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Finland\"\>", Entity["Country", "Finland"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 11.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Hungary\"\>", Entity["Country", "Hungary"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 12.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Slovakia\"\>", Entity["Country", "Slovakia"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 13.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Switzerland\"\>", Entity["Country", "Switzerland"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 14.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Czech Republic\"\>", Entity["Country", "CzechRepublic"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 15.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Taiwan\"\>", Entity["Country", "Taiwan"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 16.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Belgium\"\>", Entity["Country", "Belgium"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 17.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Spain\"\>", Entity["Country", "Spain"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 18.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Germany\"\>", Entity["Country", "Germany"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 19.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Sweden\"\>", Entity["Country", "Sweden"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 20.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"China\"\>", Entity["Country", "China"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 21.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Ukraine\"\>", Entity["Country", "Ukraine"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 22.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"United Kingdom\"\>", Entity["Country", "UnitedKingdom"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 23.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Canada\"\>", Entity["Country", "Canada"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 24.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"India\"\>", Entity["Country", "India"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 25.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"South Korea\"\>", Entity["Country", "SouthKorea"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 26.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Russia\"\>", Entity["Country", "Russia"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 27.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"Japan\"\>", Entity["Country", "Japan"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 28.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"France\"\>", Entity["Country", "France"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 29.}], {1, 0}, Automatic, {1, 0}], InsetBox[ InterpretationBox["\<\"United States\"\>", Entity["Country", "UnitedStates"], BaseStyle->"Entity"], Offset[{-2., 0.}, {0., 30.}], {1, 0}, Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, AspectRatio->0.6180339887498948, Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.16000000000000003`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {1., FormBox[ InterpretationBox["\"Netherlands\"", Entity["Country", "Netherlands"], BaseStyle -> "Entity"], TraditionalForm], 0}, {2., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {2., FormBox[ InterpretationBox["\"Armenia\"", Entity["Country", "Armenia"], BaseStyle -> "Entity"], TraditionalForm], 0}, {3., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {3., FormBox[ InterpretationBox["\"Slovenia\"", Entity["Country", "Slovenia"], BaseStyle -> "Entity"], TraditionalForm], 0}, {4., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {4., FormBox[ InterpretationBox["\"Brazil\"", Entity["Country", "Brazil"], BaseStyle -> "Entity"], TraditionalForm], 0}, {5., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {5., FormBox[ InterpretationBox["\"Argentina\"", Entity["Country", "Argentina"], BaseStyle -> "Entity"], TraditionalForm], 0}, {6., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {6., FormBox[ InterpretationBox["\"Bulgaria\"", Entity["Country", "Bulgaria"], BaseStyle -> "Entity"], TraditionalForm], 0}, {7., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {7., FormBox[ InterpretationBox["\"Romania\"", Entity["Country", "Romania"], BaseStyle -> "Entity"], TraditionalForm], 0}, {8., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {8., FormBox[ InterpretationBox["\"South Africa\"", Entity["Country", "SouthAfrica"], BaseStyle -> "Entity"], TraditionalForm], 0}, {9., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {9., FormBox[ InterpretationBox["\"Mexico\"", Entity["Country", "Mexico"], BaseStyle -> "Entity"], TraditionalForm], 0}, {10., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox["\"Pakistan\"", Entity["Country", "Pakistan"], BaseStyle -> "Entity"], TraditionalForm], 0}, {11., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {11., FormBox[ InterpretationBox["\"Finland\"", Entity["Country", "Finland"], BaseStyle -> "Entity"], TraditionalForm], 0}, {12., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {12., FormBox[ InterpretationBox["\"Hungary\"", Entity["Country", "Hungary"], BaseStyle -> "Entity"], TraditionalForm], 0}, {13., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {13., FormBox[ InterpretationBox["\"Slovakia\"", Entity["Country", "Slovakia"], BaseStyle -> "Entity"], TraditionalForm], 0}, {14., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {14., FormBox[ InterpretationBox["\"Switzerland\"", Entity["Country", "Switzerland"], BaseStyle -> "Entity"], TraditionalForm], 0}, {15., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {15., FormBox[ InterpretationBox["\"Czech Republic\"", Entity["Country", "CzechRepublic"], BaseStyle -> "Entity"], TraditionalForm], 0}, {16., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {16., FormBox[ InterpretationBox["\"Taiwan\"", Entity["Country", "Taiwan"], BaseStyle -> "Entity"], TraditionalForm], 0}, {17., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {17., FormBox[ InterpretationBox["\"Belgium\"", Entity["Country", "Belgium"], BaseStyle -> "Entity"], TraditionalForm], 0}, {18., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {18., FormBox[ InterpretationBox["\"Spain\"", Entity["Country", "Spain"], BaseStyle -> "Entity"], TraditionalForm], 0}, {19., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {19., FormBox[ InterpretationBox["\"Germany\"", Entity["Country", "Germany"], BaseStyle -> "Entity"], TraditionalForm], 0}, {20., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {20., FormBox[ InterpretationBox["\"Sweden\"", Entity["Country", "Sweden"], BaseStyle -> "Entity"], TraditionalForm], 0}, {21., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {21., FormBox[ InterpretationBox["\"China\"", Entity["Country", "China"], BaseStyle -> "Entity"], TraditionalForm], 0}, {22., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {22., FormBox[ InterpretationBox["\"Ukraine\"", Entity["Country", "Ukraine"], BaseStyle -> "Entity"], TraditionalForm], 0}, {23., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {23., FormBox[ InterpretationBox["\"United Kingdom\"", Entity["Country", "UnitedKingdom"], BaseStyle -> "Entity"], TraditionalForm], 0}, {24., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {24., FormBox[ InterpretationBox["\"Canada\"", Entity["Country", "Canada"], BaseStyle -> "Entity"], TraditionalForm], 0}, {25., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {25., FormBox[ InterpretationBox["\"India\"", Entity["Country", "India"], BaseStyle -> "Entity"], TraditionalForm], 0}, {26., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {26., FormBox[ InterpretationBox["\"South Korea\"", Entity["Country", "SouthKorea"], BaseStyle -> "Entity"], TraditionalForm], 0}, {27., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {27., FormBox[ InterpretationBox["\"Russia\"", Entity["Country", "Russia"], BaseStyle -> "Entity"], TraditionalForm], 0}, {28., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {28., FormBox[ InterpretationBox["\"Japan\"", Entity["Country", "Japan"], BaseStyle -> "Entity"], TraditionalForm], 0}, {29., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {29., FormBox[ InterpretationBox["\"France\"", Entity["Country", "France"], BaseStyle -> "Entity"], TraditionalForm], 0}, {30., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {30., FormBox[ InterpretationBox["\"United States\"", Entity["Country", "UnitedStates"], BaseStyle -> "Entity"], TraditionalForm], 0}}, {{1., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {2., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {3., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {4., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {5., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {6., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {7., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {8., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {9., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {10., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {11., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {12., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {13., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {14., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {15., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {16., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {17., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {18., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {19., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {20., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {21., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {22., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {23., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {24., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {25., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {26., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {27., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {28., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {29., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {30., FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}, { Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Large, PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.05]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, None}]\)

O número de reatores corresponde ao total de energia nuclear produzida por país.

In[10]:=
Click for copyable input
energytotals = Map[Total[#[[All, 3]]] &, percountry];
In[11]:=
Click for copyable input
stats = {Min, Max, Mean, Median, Total}; TableForm[#[energytotals] & /@ stats, TableHeadings -> {stats}]
Out[11]//TableForm=

Os maiores produtores de energia nuclear são os Estados Unidos e a França.

In[12]:=
Click for copyable input
TakeLargest[energytotals, 2]
Out[12]=
mostre o input completo da Wolfram Language
In[13]:=
Click for copyable input
GeoRegionValuePlot[energytotals, GeoProjection -> "Mercator", GeoRange -> {{-70, 80}, {-170, 190}}, GeoLabels -> (Tooltip[#1, #2] &)]
In[14]:=
Click for copyable input

O mapa parecerá diferente se você considerar a produção total de energia per capita. Use CountryData para acessar totais das populações de cada país na lista.

In[15]:=
Click for copyable input
populations = AssociationThread[Keys[energytotals], CountryData[#, "Population"] & /@ Keys[energytotals]];

Calcule a energia nuclear per capita.

In[16]:=
Click for copyable input
energypercapita = energytotals/populations;
In[17]:=
Click for copyable input
TableForm[#[energypercapita] & /@ stats, TableHeadings -> {stats}]
Out[17]//TableForm=

No mapa, você pode ver que mesmo os EUA tendo a maior produção de energia nuclear absoluta, não é a maior por pessoa, enquanto a França e a Suécia têm a liderança.

In[18]:=
Click for copyable input
TakeLargest[energypercapita, 2]
Out[18]=
mostre o input completo da Wolfram Language
In[19]:=
Click for copyable input
GeoRegionValuePlot[energypercapita, GeoProjection -> "Mercator", GeoRange -> {{-70, 80}, {-170, 190}}, GeoLabels -> (Tooltip[#1, #2] &)]
In[20]:=
Click for copyable input

Exemplos Relacionados

de en es fr ja ko ru zh