人口と面積
Calloutを使って特定のデータ点を強調する.
完全なWolfram言語入力を表示する
In[2]:=
data = EntityValue[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "all countries", Typeset`boxes$$ =
TemplateBox[{
"\"all countries, dependencies, and territories\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"Country\"", ",", "\"Countries\""}], "]"}],
"\"EntityClass[\\\"Country\\\", \\\"Countries\\\"]\"",
"\"countries\""}, "EntityClass"],
Typeset`allassumptions$$ = {{
"type" -> "SubCategory", "word" -> "all countries",
"template" -> "Assuming ${desc1}. Use ${desc2} instead",
"count" -> "2",
"Values" -> {{
"name" -> "Countries",
"desc" -> "all countries, dependencies, and territories",
"input" -> "*DPClash.CountryEC.all+countries-_*Countries-"}\
, {"name" -> "SovereignCountries",
"desc" -> "all sovereign countries",
"input" -> "*DPClash.CountryEC.all+countries-_*\
SovereignCountries-"}}}}, Typeset`assumptions$$ = {},
Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.880459`6.396254130643862, "Messages" -> {}}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic,
Dynamic[Typeset`query$$],
Dynamic[Typeset`boxes$$],
Dynamic[Typeset`allassumptions$$],
Dynamic[Typeset`assumptions$$],
Dynamic[Typeset`open$$],
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{399., {7., 15.}},
TrackedSymbols:>{
Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$,
Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\), {"Name", "Area",
"Population"}]; annotated =
data /. {{n : "Macau" | "Monaco" | "India", a_, b_} :>
Callout[{a, b}, n,
Above], {n : "Pitcairn Islands" | "Svalbard" | "Greenland", a_,
b_} :>
Callout[{a, b}, n, Below], {r : "Russia" | "China", a_, b_} :>
Callout[{a, b}, r, After], {"Vatican City", a_, b_} :>
Callout[{a, b}, "Vatican City", Before], {n_, a_, b_} :>
Tooltip[{a, b}, n]};
ListLogLogPlot[annotated, Evaluate@options]
Out[2]=