WOLFRAM NOTEBOOK

@binocularity May 2023/June2023/September2023​
​​
​In October 2024 NGESO changed to NESO we updated the data feeds.​
​​
​The fuel data used here has been cleaned and visualized and originally comes from NGESO:​
​​
​https://data.nationalgrideso.com/carbon-intensity1/historic-generation-mix​
​​
​Find the cleaned data at the embedded URL links below to download your own copy.
In[]:=
(*Setupfoldersandintialisationcode*)​​folder=NotebookDirectory[];​​SetDirectory[folder];​​​​​​(*Pre-cleaneddata*)​​dayInYTD=CloudGet["https://www.wolframcloud.com/obj/binocularity/Published/dayInYTD"];​​dataD=CloudGet["https://www.wolframcloud.com/obj/binocularity/Published/dataD"];​​fuelColoursOrdered=CloudGet["https://www.wolframcloud.com/obj/binocularity/Published/fuelColoursOrdered"];​​datesLBlanks=CloudGet["https://www.wolframcloud.com/obj/binocularity/Published/datesLBlanks"];​​stringDate=CloudGet["https://www.wolframcloud.com/obj/binocularity/Published/stringDate"];​​fuelDSout=CloudGet["https://www.wolframcloud.com/obj/binocularity/Published/fuelDSout"];​​fuelPcDSout=CloudGet["https://www.wolframcloud.com/obj/binocularity/Published/fuelPcDSout"];​​​​(*FuelcolourschosentomatchNGESOpublications*)​​fuelColours=Association[{​​"GAS"RGBColor[Evaluate[{247,99,43}/255]],​​"COAL"RGBColor[Evaluate[{1,1,1}/255]],​​"NUCLEAR"RGBColor[Evaluate[{108,44,145}/255]],​​"WIND"RGBColor[Evaluate[{92,200,246}/255]],​​"HYDRO"RGBColor[Evaluate[{0,121,192}/255]],​​"IMPORTS"RGBColor[Evaluate[{194,0,119}/255]],​​"BIOMASS"RGBColor[Evaluate[{194,204,44}/255]],​​"OTHER"RGBColor[Evaluate[{255,205,243}/255]],​​"SOLAR"RGBColor[Evaluate[{253,231,1}/255]],​​"STORAGE"RGBColor[Evaluate[{255,255,255}/255]]​​}];​​styleColours=fuelColours[[#]]&/@Keys[fuelColoursOrdered];​​swatch=Reverse[fuelColoursOrdered];​​legend=SwatchLegend[Values[swatch],Keys[swatch]];​​​​dataReorder=dataD[All,Keys[fuelColoursOrdered]];​​​​Print[" Cleaned data dowloaded from the Cloud"]​​
Cleaned data dowloaded from the Cloud
Out[]=
SOLAR
HYDRO
BIOMASS
STORAGE
WIND
COAL
GAS
IMPORTS
OTHER
NUCLEAR
Out[]=
Rank in YTD / 129
Sat 3 May 2025
Sun 4 May 2025
Mon 5 May 2025
Tue 6 May 2025
Wed 7 May 2025
Thu 8 May 2025
Fri 9 May 2025
GAS
122
124
105
64
39
32
74
COAL
79
61
95
22
4
39
111
NUCLEAR
62
38
41
65
66
67
43
WIND
37
22
61
112
118
117
109
HYDRO
126
123
116
95
118
129
127
IMPORTS
16
38
9
13
56
45
27
BIOMASS
73
98
52
9
7
10
2
OTHER
121
57
46
88
38
22
6
SOLAR
13
24
26
19
22
37
2
STORAGE
126
104
72
119
123
118
117
In[]:=
​​formattedPcDS=Dataset[fuelPcDSout,HeaderStyle->{"Bold","Code"},ItemStyle->{"SubItem"},Alignment->Right,ItemDisplayFunction->(NumberForm[#,{3,1}]&)]
Out[]=
Percentage daily
Sat 3 May 2025
Sun 4 May 2025
Mon 5 May 2025
Tue 6 May 2025
Wed 7 May 2025
Thu 8 May 2025
Fri 9 May 2025
GAS
12.6
12.2
17.2
31.9
38.3
39.6
29.5
COAL
0.0
0.0
0.0
0.0
0.0
0.0
0.0
NUCLEAR
12.1
12.8
12.7
12.0
12.0
12.0
12.6
WIND
34.9
40.2
27.6
12.2
11.0
11.1
13.1
HYDRO
0.4
0.4
0.5
0.6
0.5
0.4
0.4
IMPORTS
21.5
18.0
23.3
22.3
17.0
17.5
19.1
BIOMASS
6.4
5.1
7.4
9.7
9.9
9.7
10.3
OTHER
1.1
1.4
1.5
1.3
1.5
1.6
2.0
SOLAR
11.1
9.7
9.5
9.9
9.8
8.1
12.9
STORAGE
0.0
0.2
0.4
0.1
0.1
0.1
0.1
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.