何でもラベルとして使う
LabelingFunctionでHueを使って,2Dプロットで3番目の数量を表現する.
完全なWolfram言語入力を表示する
In[2]:=
![Click for copyable input](assets.ja/use-anything-as-a-label/In_37.png)
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]=
![](assets.ja/use-anything-as-a-label/O_32.png)