Reatores nucleares: Novos Recursos do Wolfram Language 11

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

reactors = NuclearReactorData[];

In[2]:=

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

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

data = Transpose[{active, countries, annualproduction}];
data = DeleteMissing[data, 1, 2];

In[5]:=

data // Dimensions

Out[5]=

O número de reatores por país.

In[6]:=

percountry = GroupBy[data, #1[[2]] &];

In[7]:=

numberpercountry = Map[Length, percountry];

In[8]:=

BarChart[Sort[numberpercountry], ChartLabels -> Automatic, 
 ChartStyle -> "DarkRainbow", BarOrigin -> Left, BarSpacing -> 1, 
 LabelingFunction -> (Placed[#1, After] &), ImageSize -> Large]

In[9]:=

\!\(\*
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]:=

energytotals = Map[Total[#[[All, 3]]] &, percountry];

In[11]:=

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

TakeLargest[energytotals, 2]

Out[12]=

mostre o input completo da Wolfram Language

In[13]:=

GeoRegionValuePlot[energytotals, GeoProjection -> "Mercator", 
 GeoRange -> {{-70, 80}, {-170, 190}}, 
 GeoLabels -> (Tooltip[#1, #2] &)]

In[14]:=

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

populations = 
  AssociationThread[Keys[energytotals], 
   CountryData[#, "Population"] & /@ Keys[energytotals]];

Calcule a energia nuclear per capita.

In[16]:=

energypercapita = energytotals/populations;

In[17]:=

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

TakeLargest[energypercapita, 2]

Out[18]=

mostre o input completo da Wolfram Language

In[19]:=

GeoRegionValuePlot[energypercapita, GeoProjection -> "Mercator", 
 GeoRange -> {{-70, 80}, {-170, 190}}, 
 GeoLabels -> (Tooltip[#1, #2] &)]

In[20]:=

Wolfram Language™

Reatores nucleares

Exemplos Relacionados