太陽系外惑星
プロット中の異なる2つの惑星クラスをコールアウトを使って識別する．
In[1]:=
sedata = DeleteMissing[
ExoplanetData[
EntityClass["Exoplanet", "SuperEarth"], {"Radius", "Gravity"}], 1,
1];
hjdata = DeleteMissing[
ExoplanetData[
EntityClass["Exoplanet", "HotJupiter"], {"Radius", "Gravity"}], 1,
1];In[2]:=
Grid[Partition[{ListPlot[{Callout[sedata,
"Super Earths", {9000, 100}],
Callout[hjdata, "Hot Jupiters", {60000, 200}, 50000]},
Frame -> True, FrameLabel -> {"Radius", "Gravity"},
ImageSize -> 250],
ListPlot[{Callout[sedata, "Super Earths", {9000, 100}],
Callout[hjdata, "Hot Jupiters", {50000, 2000}, 50000]},
Frame -> True, FrameLabel -> {"Radius", "Gravity"},
ScalingFunctions -> {"Log", "Log"}, ImageSize -> 250]}, 2]]Out[2]=
