Re: Labeling points
- To: mathgroup at smc.vnet.net
- Subject: [mg88789] Re: [mg88744] Labeling points
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 16 May 2008 05:34:58 -0400 (EDT)
- Reply-to: hanlonr at cox.net
data = {
{0.5, 50, "50%"},
{1.0, 50, "75%"},
{1.5, 50, "88%"},
{2.0, 50, "94%"},
{1.0, 100, "25%"},
{1.5, 100, "50%"},
{2.0, 100, "69%"},
{1.5, 150, "13%"},
{2.0, 150, "31%"},
{2.0, 200, "6%"}};
Plot[50 x, {x, 0, 2},
Epilog -> {AbsolutePointSize[5],
Point[Take[#, 2] & /@ data],
Text[#[[3]], #[[{1, 2}]], {-1.5, -.5}] & /@ data},
PlotRange -> {{0, 2.15}, {0, 210}},
AxesLabel -> {"Time", "Damage"},
AspectRatio -> 1]
Bob Hanlon
---- AngleWyrm <anglewyrm at yahoo.com> wrote:
> Here's a graphic I created for a discussion on game theory:
> http://home.comcast.net/~anglewyrm/thread/dps.png
>
> I put the text next to the points in as a post-processing step by hand in
> PhotoShop.
>
> Is there a way to get mathematica to display such information?
>
>
>
