Wolfram Language™

Alles kann eine Beschriftung sein

Verwenden Sie mit der Funktion Hue Farbtöne in einer LabelingFunction, um eine dritte Größe in 2D-Graphiken darzustellen.

In[1]:=

hotjupiters = DeleteMissing[ EntityValue[ EntityClass["Exoplanet", "HotJupiter"], {"Radius", "Density", "Gravity"}], 1, Infinity]; {radius, density, gravity} = Transpose[hotjupiters]; gMinMax = MinMax[gravity]; data = Transpose[{radius, density}];

In[2]:=

labeler[data_, index_, meta_] := Placed[Hue[ Rescale[Log[QuantityMagnitude[Extract[gravity, Last@index]]], Log[QuantityMagnitude[gMinMax]], {0, 0.5}]], Center]; ListPlot[data, PlotRange -> {{20000, 100000}, {0, 6.7}}, LabelingFunction -> labeler, ImageSize -> 400, AxesLabel -> {"Radius", "Density"}]

Out[2]=