In[]:=
​​beginn={2020,6,1};​​ende={2020,7,20};​​ts=WeatherData[{67.55,133.38},"MaxTemperature",{beginn,ende,"Day"}];​​mittel=Mean[ts];​​max=Max[ts];​​min=Min[ts];​​kurve=DateListPlot[ts];​​Column[{Labeled[Framed[kurve],{"C°","Maximal-Temperatur","Werchojansk"},{Left,Top,Right}],​​Labeled[Framed[max],"Absolutes Maximum",Top],​​Labeled[Framed[mittel],"Mittelwert aller Maximal-Temperaturen",Top],​​Labeled[Framed[min],"Absolutes Minimum",Top]}]​​​​​​​​
Out[]=
7
Null
​
Maximal-Temperatur
​
C°
Werchojansk
Absolutes Maximum
34.78
°C
Mittelwert aller Maximal-Temperaturen
24.3448
°C
Absolutes Minimum
5
°C