Wolfram Language™

Beschriftungssystem für Punkte

Das manuelle Beschriften von Punkten in einem Streudiagrammpoints mit Beschriftungen unterschiedlicher Länge kann eine Herausforderung sein. Das neue Beschriftungssystem bietet dafür eine automatische Lösung.

Hier ist ein Beispieldiagramm, das das BIP der Bevölkerung aller europäischer Länder gegenüber stellt.

In[1]:=

options = {ImageSize -> 550, PlotTheme -> "Detailed", PlotLabel -> "GDP vs. Population for European Countries", FrameLabel -> {"Population", "GDP"}, LabelStyle -> 10, PlotStyle -> PointSize[0.01], PlotRangePadding -> Scaled[.06]};

In[2]:=

countries = CountryData["Europe"]; allCountryData = DeleteMissing[ EntityValue[CountryData["Europe"], {"Population", "GDP", "Name"}], 1, Infinity];

Visualisieren Sie 20 Länder mit automatischer Beschriftung für Punkte.

In[3]:=

ListLogLogPlot[ allCountryData[[1 ;; 20, {1, 2}]] -> allCountryData[[1 ;; 20, 3]], options]

Out[3]=

Wenn die Punkte zu dicht und zu zahlreich sind, bewährt sich eine Beschriftung in Verbindung mit einer Legende.

In[4]:=

legend = Multicolumn[ Table[Text@ Row[{ToString[i] <> ".", allCountryData[[i]][[3]]}, " "], {i, Length[allCountryData]}], 5];

In[5]:=

Legended[ListLogLogPlot[allCountryData[[All, {1, 2}]], LabelingFunction -> (First@#2 &), options], Placed[legend, Bottom]]

Out[5]=