Re: Labeling points
- To: mathgroup at smc.vnet.net
- Subject: [mg88768] Re: [mg88744] Labeling points
- From: "J. McKenzie Alexander" <jalex at lse.ac.uk>
- Date: Fri, 16 May 2008 05:30:56 -0400 (EDT)
- References: <200805151149.HAA23447@smc.vnet.net>
One way to annotate graphics like this is to use the Epilog option,
which allows you to specify arbitrary graphic constructs for inclusion
in the graphic.
To keep the Epilog option from becoming unreadable (and to give you
the change to tweak the appearance of the point/label pairs), here's a
simple function that generates the annotations:
f[lab_, pt_] := {Point[pt], Text[Style[lab, 14], pt, {-1.5, 0}]}
Your plot is then constructed as follows:
Plot[50 x, {x, 0, 2},
PlotRange -> {{0, 2.25}, {0, 200}},
PlotStyle -> Blue,
AspectRatio -> 1,
AxesLabel -> {"Time", "Damage"},
PlotRangeClipping -> False,
Epilog -> {
AbsolutePointSize[6],
Point[{0, 0}],
Point[{0.5, 0}],
Point[{1.5, 0}],
Point[{2.0, 0}],
f["50%", {0.5, 50}],
f["75%", {1, 50}],
f["88%", {1.5, 50}],
f["94%", {2, 50}],
f["25%", {1, 100}],
f["50%", {1.5, 100}],
f["69%", {2, 100}],
f["13%", {1.5, 150}],
f["31%", {2, 150}],
f["6%", {2, 200}]
}
]
Jason
On 15 May 2008, at 12:49, AngleWyrm 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?
>
>
>
--
Dr J. McKenzie Alexander
Department of Philosophy, Logic and Scientific Method
London School of Economics and Political Science
Houghton Street, London WC2A 2AE
Please access the attached hyperlink for an important electronic communications disclaimer: http://www.lse.ac.uk/collections/secretariat/legal/disclaimer.htm
- References:
- Labeling points
- From: "AngleWyrm" <anglewyrm@yahoo.com>
- Labeling points