[Date Index] [Thread Index] [Author Index]

Re: Labeling points

• To: mathgroup at smc.vnet.net
• Subject: [mg88846] Re: Labeling points
• From: anglewyrm at yahoo.com
• Date: Mon, 19 May 2008 05:16:11 -0400 (EDT)
• References: <200805151149.HAA23447@smc.vnet.net> <200805160929.FAA00887@smc.vnet.net>

Thanks all, great help! Combining them, here's what I wound up with:

(* Custom LabeledListPlot *)
LabeledListPlot[data_] :=
  Show[Graphics[{PointSize[Last[#]/50], Point[Take[#, 2]],
       Text[ToString[Round[100 Last[#]]] <> "%",
        Take[#, 2], {-1.5, 0}]} & /@ data],
   Axes -> True, AxesOrigin -> {0, 0}, AspectRatio -> 1,
   AxesLabel -> {"Shots", "Damage"}];

(* Data supplied by other routines *)
data = {{1, 1, 0.5`1.9999999999999998}, {2, 1,
    0.75`2.0000000000000004}, {2, 2, 0.25`1.9999999999999998}, {3, 1,
    0.875`2.0000000000000013}, {3, 2, 0.5`1.9999999999999998}, {3, 3,
    0.125`1.9999999999999998}, {4, 1, 0.9375`2.0000000000000004}, {4,
    2, 0.6875`2.}, {4, 3, 0.3125`1.9999999999999998}, {4, 4,
    0.0625`1.9999999999999998}, {5, 1,
    0.96875`1.9999999999999991}, {5, 2, 0.8125`2.000000000000002}, {5,
     3, 0.5`1.9999999999999998}, {5, 4,
    0.1875`2.0000000000000004}, {5, 5,
    0.03125`1.9999999999999998}, {6, 1,
    0.984375`2.0000000000000004}, {6, 2,
    0.890625`2.0000000000000004}, {6, 3,
    0.65625`1.9999999999999998}, {6, 4, 0.34375`2.}, {6, 5,
    0.109375`2.0000000000000013}, {6, 6,
    0.015625`1.9999999999999998}};

LabeledListPlot[data]

• References:
  • Labeling points
    • From: "AngleWyrm" <anglewyrm@yahoo.com>
  • Re: Labeling points
    • From: Christopher Carlson <carlson@wolfram.com>