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,JoinedTrue];​​LinearModelFit[werte,x,x];​​lf=Normal[%];​​lfplot=Plot[lf,{x,1,Length[zeiten]},​​PlotRange{{1,Length[zeiten]},{Min[werte],Max[werte]}},​​PlotStyleRed];​​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:
35.5246-0.0030481x
Out[]=
Kurve mit Linearem Fit