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>
- Labeling points