Wolfram 语言

可视化:标签、缩放和排除

不同样式的标注

Callout 样式的各种范例. 标签给出了已命名的 Appearance 的名称.

显示完整的 Wolfram 语言输入
In[1]:=
Click for copyable input
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" -> 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, 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" -> 128]\), {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" -> 129]\), {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" -> 130]\), {-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" -> 131]\), {-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" -> 132]\), {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]=

相关范例

de en es fr ja ko pt-br ru