Wetterkarten erstellen  

Zeigen Sie mit den GeoGraphics- und IconData-Befehlen die Ortstemperaturen einiger ausgewählter Städte im Vereinigten Königreich an.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[1]:=

X cities = {Entity["City", {"Belfast", "Belfast", "UnitedKingdom"}], Entity["City", {"Birmingham", "Birmingham", "UnitedKingdom"}], Entity["City", {"Caerdydd", "Cardiff", "UnitedKingdom"}], Entity["City", {"Edinburgh", "Edinburgh", "UnitedKingdom"}], Entity["City", {"Glasgow", "GlasgowCity", "UnitedKingdom"}], Entity["City", {"London", "GreaterLondon", "UnitedKingdom"}], Entity["City", {"NewcastleUponTyne", "NewcastleUponTyne", "UnitedKingdom"}], Entity["City", {"Norwich", "Norfolk", "UnitedKingdom"}], Entity["City", {"Plymouth", "Plymouth", "UnitedKingdom"}], Entity["City", {"Portsmouth", "Portsmouth", "UnitedKingdom"}], Entity["City", {"Stornoway", "EileanSiar", "UnitedKingdom"}]};

In[2]:=

X data = {CityData[#, "Coordinates"], CityData[#, "Name"], AirTemperatureData[#]} & /@ cities;

In[3]:=

X GeoGraphics[{GeoStyling["ReliefMap"], Opacity[0.5], EdgeForm[{Thin, Opacity[0.3]}], Polygon[Entity["Country", "UnitedKingdom"]], PointSize[Large], Opacity[1], {Black, Text[#[[2]], GeoPosition[#[[1]]], {-0.5, 1.5}], Red, Point[GeoPosition[#[[1]]]], Inset[IconData["AirTemperature", #[[3]]], GeoPosition[#[[1]]], Bottom, 1]} & /@ data}, GeoBackground -> GeoStyling["StreetMapNoLabels"], GeoRange -> {{49, 60}, {-12, 7}}]

Out[3]=