콜아웃 겔러리
다양한 종류의 Callout 스타일링 예를 살펴봅니다. 명명된 Appearance는 라벨에 의해 식별됩니다.
전체 Wolfram 언어 입력 표시하기
In[1]:=
Block[{inputOrdered,
input = {(* appearance name, label, marker loc, label loc,
options *)
(*
1 *){"Leader", "Leader", {0.45, -0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (2 \[Pi])/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 2 *){"CurvedLeader", \!\(\*
StyleBox["\"\<Curved\\nLeader\>\"",
StripOnInput->False,
LineSpacing->{0, 10},
"NodeID" -> 126]\), {0.5, 0.5},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 4 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 3 *){"SlantedLabel", \!\(\*
StyleBox["\"\<Slanted\\nLabel\>\"",
StripOnInput->False,
LineSpacing->{0, 10},
"NodeID" -> 127]\), {0.5, 0.5},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 2,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (7 \[Pi])/6, 0}, {10, (7 \[Pi])/6}},
RoundingRadius -> 0}},
(* 4 *){"Frame", "Frame", {-0.4, -0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, \[Pi]/3, 0}, {10, 0}}, RoundingRadius -> 0}},
(* 5 *){"Line", "Line", {-0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 5 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 6 *){"Corners", "Corners", {0.45, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 4 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 7 *){"Balloon", "Balloon", {0.3, -0.4},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (2 \[Pi])/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 8 *){"LineBalloon", \!\(\*
StyleBox["\"\<Line\\nBalloon\>\"",
StripOnInput->False,
LineSpacing->{0, 10},
"NodeID" -> 128]\), {0.2, -0.4},
Automatic, {Background ->
Opacity[1, RGBColor[0.97, 0.606, 0.081]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (2 \[Pi])/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 9 *){"Balloon", "Balloon", {-0.3, -0.4},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 10.,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 10.}},
(* 10 *){"Leader", "Leader", {-0.4, -0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"Point", 5},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, \[Pi]/3, 0}, {10, 0}}, RoundingRadius -> 0}},
(* 11 *){"Leader", "Leader", {0.4, -0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"CirclePoint", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (2 \[Pi])/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 12 *){"Leader", "Leader", {-0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"Circle", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 5 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 13 *){"Leader", "Leader", {0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"BoxPoint", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 4 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 14 *){"Leader", "Leader", {-0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"Box", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 5 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 15 *){"Leader", "Leader", {-0.4, -0.3},
Automatic, {Background -> Opacity[1, ColorData[106, 3]],
CalloutMarker -> {"Star", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, ColorData[106, 3]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 1.9,
LabelStyle -> RGBColor[1., 1., 1.],
LeaderSize -> {{30, \[Pi]/3, 0}, {10, 0}}, RoundingRadius -> 0}},
(* 16 *){"Leader", "Leader", {0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"OpenStar", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (4 \[Pi])/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 17 *){"Leader", "Leader", {-0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"Arrow", 8},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 5 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 18 *){"Leader", "Leader", {0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"OpenArrow", 8},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 4 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 19 *){"Leader", "Leader", {-0.4, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"Point", 6},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 5 \[Pi]/3, 6}, {10, 0}},
RoundingRadius -> 0}},
(* 20 *){"Leader", "Leader", {0., 0.5},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 6},
CalloutStyle -> {Directive[AbsoluteThickness[2],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 9.,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{24, (3 \[Pi])/2, 0}, {0, 0}},
RoundingRadius -> 6.5}},
(* 21 *){"Leader", "Leader", {0.4, -0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{1, 2}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (2 \[Pi])/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 22 *){"Leader", "Leader", {-0.4, -0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {False, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, \[Pi]/3, 0}, {10, 0}}, RoundingRadius -> 0}},
(* 23 *){"Leader", "Leader", {0.4, -0.4},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{False, False}, {True, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, (2 \[Pi])/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 24 *){"Frame", "Frame", {0., 0.5},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 7.4,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{15, (3 \[Pi])/2, 0}, {10, 0}},
RoundingRadius -> 15.}},
(* 25 *){"SlantedLabel", \!\(\*
StyleBox["\"\<Slanted\\nLabel\>\"",
StripOnInput->False,
LineSpacing->{0, 10},
"NodeID" -> 129]\), {-0.4, -0.4},
Automatic, {Background -> Opacity[0, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 1.,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{40, \[Pi]/6, 0}, {0, (29 \[Pi])/180}},
RoundingRadius -> 0}},
(* 26 *){"Corners", "Corners", {-0.45, 0.3},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {False, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{30, 5 \[Pi]/3, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 27 *){"Balloon", "Balloon", {0., -0.5},
Automatic, {Background -> Opacity[1, RGBColor[0., 0., 0.]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[2],
AbsoluteDashing[{}],
Opacity[1, RGBColor[
0.5000076295109483, 0.5000076295109483,
0.5000076295109483]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 5.6,
LabelStyle -> RGBColor[1., 1., 1.],
LeaderSize -> {{35, \[Pi]/2, 0}, {10, 0}},
RoundingRadius -> 4.}},
(* 28 *){"CurvedLeader", \!\(\*
StyleBox["\"\<Curved\\nLeader\>\"",
StripOnInput->False,
LineSpacing->{0, 10},
"NodeID" -> 130]\), {-0.5, -0.4},
Automatic, {Background -> Opacity[0., GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, False}, {False, False}}, FrameMargins -> 5,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{51, \[Pi]/3, 0}, {26, (16 \[Pi])/9}},
RoundingRadius -> 4.5}},
(* 29 *){"LineBalloon", \!\(\*
StyleBox["\"\<Line\\nBalloon\>\"",
StripOnInput->False,
LineSpacing->{0, 10},
"NodeID" -> 131]\), {0., -0.5},
Automatic, {Background -> Opacity[0., GrayLevel[1]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 1.,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{38, \[Pi]/2, 0}, {10, 0}}, RoundingRadius -> 0}},
(* 30 *){"Frame", "Frame", {-0.4, 0.},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"Circle", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 6.5,
LabelStyle -> GrayLevel[0], LeaderSize -> {{26, 0, 0}, {0, 0}},
RoundingRadius -> 10.}},
(* 31 *){"Leader", "Leader", {0., 0.4},
Automatic, {Background -> Opacity[1, GrayLevel[1]],
CalloutMarker -> {"Box", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 7.,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{10, (3 \[Pi])/2, 0}, {10, 0}},
RoundingRadius -> 0}},
(* 32 *){"Balloon", "Balloon", {0.4, 0.},
Automatic, {Background ->
Opacity[1, RGBColor[
1., 0.9999694819562066, 0.9999847409781033]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> 7.6,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{43, \[Pi], 0}, {10, 0}}, RoundingRadius -> 10.}},
(* 33 *){None, "None", {-0.45, 0.},
Automatic, {Background -> Opacity[1, RGBColor[1., 1., 1.]],
CalloutMarker -> {None, 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, RGBColor[0., 0., 0.]]],
Directive[AbsoluteThickness[1], Opacity[0, 0]]},
Frame -> {{True, True}, {True, True}}, FrameMargins -> {20, 5},
LabelStyle -> RGBColor[0., 0., 0.],
LeaderSize -> {{4, 0, 0}, {0, 0}}, RoundingRadius -> 4.}},
(* 34 *){None, "None", {0., -0.1},
Automatic, {Background -> Opacity[0., GrayLevel[1]],
CalloutMarker -> {"CirclePoint", 10},
CalloutStyle -> {Directive[AbsoluteThickness[1],
AbsoluteDashing[{}], Opacity[1, GrayLevel[0]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 1.,
LabelStyle -> GrayLevel[0],
LeaderSize -> {{6, \[Pi]/2, 0}, {0, 0}},
RoundingRadius -> 4.}},
(* 35 *){"Leader", "Leader", {0., -0.3},
Automatic, {Background -> Opacity[0., GrayLevel[1]],
CalloutMarker -> {"OpenArrow", 7},
CalloutStyle -> {Directive[AbsoluteThickness[2],
AbsoluteDashing[{}], Opacity[1, ColorData[106, 1]]],
Directive[AbsoluteThickness[1], Opacity[0, GrayLevel[1]]]},
Frame -> {{False, False}, {False, False}}, FrameMargins -> 2.8,
LabelStyle -> ColorData[106, 1],
LeaderSize -> {{23, \[Pi]/2, 0}, {0, 0}},
RoundingRadius -> 4.}}
}},
(* set order *)
inputOrdered = input[[#]] & /@ {
1, 7, 29, 4, 28,
8, 23, 35, 9, 10,
11, 21, 27, 15, 22,
33, 32, 34, 25, 30,
16, 2, 24, 12, 5,
6, 13, 31, 14, 17,
3, 18, 20, 19,
26}(*[[#]]&/@(SeedRandom[2];RandomSample[Range[Length@input],\
Length@input])*);
(* set color *)
Do[
(* background *)
inputOrdered[[n]][[5]][[1]][[-1]][[2]] = ColorData[106, n];
(* leader; background opacity 0 not darker *)
inputOrdered[[n]][[5]][[3]][[-1]][[1]][[3]][[2]] =
If[inputOrdered[[n]][[5]][[1]][[-1]][[1]] == 0, ColorData[106, n],
Darker[ColorData[106, n], .4]];
(* label; background opacity 0 then Black *)
inputOrdered[[n]][[5]][[6]][[-1]] =
If[OddQ[n] || inputOrdered[[n]][[5]][[1]][[-1]][[1]] == 0, Black,
White];
(* adjust margins for white; not for background opacity 0 *)
inputOrdered[[n]][[5]][[5]][[-1]] =
If[OddQ[n] || inputOrdered[[n]][[5]][[1]][[-1]][[1]] == 0,
inputOrdered[[n]][[5]][[5]][[-1]],
inputOrdered[[n]][[5]][[5]][[-1]] - 5];, {n, Length@inputOrdered}];
(* render *)
Grid[Partition[
Table[Row[{ListPlot[{Callout[inputOrdered[[n]][[3]],
inputOrdered[[n]][[2]], inputOrdered[[n]][[4]],
Appearance -> inputOrdered[[n]][[1]],
Sequence @@ inputOrdered[[n]][[5]]]},
PlotRange -> {{-.5, .5}, {-.5, .5}}, AspectRatio -> 1/1.5,
ImageSize -> 80, Axes -> False, PlotMarkers -> {""}]}], {n,
Length@inputOrdered}], 5, 5, 1, {}], Background -> LightGray,
Dividers -> All, FrameStyle -> Directive[Thick, White]]]Out[1]=
