Wolfram言語

可視化:ラベル,スケール,除外

何でもラベルとして使う

LabelingFunctionHueを使って,2Dプロットで3番目の数量を表現する.

完全なWolfram言語入力を表示する
In[1]:=
Click for copyable input
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]:=
Click for copyable input
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]=

関連する例

de en es fr ko pt-br ru zh