In[]:=
ort="Buenos Aires";beginn=1970;ende=2019;ts=WeatherData[ort,"MaxTemperature",{{beginn,1,1},{ende,12,31},"Year"}];kurve=DateListPlot[ts];pfad=ts["Path"];ts["Values"];werte=QuantityMagnitude[%];zeiten=ts["Times"];Length[zeiten];ts2=Table[{t,werte[[t]]},{t,1,%}];kurve2=ListPlot[ts2,JoinedTrue];LinearModelFit[werte,x,x];lf=Normal[%];lfplot=Plot[lf,{x,1,Length[zeiten]},PlotRange{{1,Length[zeiten]},{Min[werte],Max[werte]}},PlotStyleRed];kurve3=Show[lfplot,kurve2];Labeled[kurve,{"Jahres-Maximal-Temperatur","°C",ort},{Top,Left,Right}]Labeled[lf,"Linearer Fit:",Left]Labeled[kurve3,"Kurve mit Linearem Fit",Top]
Out[]=
| Jahres-Maximal-Temperatur | |
°C | Buenos Aires |
Out[]=
Linearer Fit: |
Out[]=
Kurve mit Linearem Fit |