Use qualquer coisa como anotação
Use Hue em LabelingFunction para representar uma terceira quantidade em gráficos 2D.
mostre o input completo da Wolfram Language
In[2]:=
![Click for copyable input](assets.pt-br/use-anything-as-a-label/In_38.png)
labeler[data_, index_, meta_] :=
Placed[Hue[
Rescale[Log[QuantityMagnitude[Extract[gravity, 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]=
![](assets.pt-br/use-anything-as-a-label/O_32.png)