Re: Creating a Scatter Plot with Labeled Points

• To: mathgroup at smc.vnet.net
• Subject: [mg127179] Re: Creating a Scatter Plot with Labeled Points
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Thu, 5 Jul 2012 06:14:00 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201207040729.DAA01346@smc.vnet.net>

```S11Exercise64b =
{{0, 120}, {10, 119}, {20, 118}, {30, 117}, {40, 116},
{50, 115}, {60, 114}, {70, 113}, {80, 112}};

ListPlot[S11Exercise64b,
PlotStyle -> {Blue, AbsolutePointSize[6]},
FrameLabel -> {"x", "y"},
Frame -> True,
Axes -> False,
PlotRange -> {{-4, 98}, {111, 121}},
Epilog -> {Text[
Style["(" <> ToString[#[[1]]] <> ", " <>
ToString[#[[2]]] <> ")", 12], #, {-1.25, 0}] & /@
S11Exercise64b}]

Bob Hanlon

On Wed, Jul 4, 2012 at 12:26 PM, Mike McCraith <sandwaterhand at gmail.com> wrote:
> Thanks much!
>
> My remaining question is then is it possible to have the ordered pair read
> as (0, 120) instead of {0, 120}?
>
>
> On Wed, Jul 4, 2012 at 6:55 AM, Bob Hanlon <hanlonr357 at gmail.com> wrote:
>>
>> If you put the axes origin at {0, 0} it is difficult to read the labels.
>>
>> S11Exercise64b = {{0, 120}, {10, 119}, {20, 118}, {30, 117}, {40, 116},
>> {50,
>>     115}, {60, 114}, {70, 113}, {80, 112}};
>>
>> ListPlot[S11Exercise64b,
>>  PlotStyle -> {Blue, AbsolutePointSize[6]},
>>  FrameLabel -> {x, y},
>>  Frame -> True,
>>  Axes -> False,
>>  PlotRange -> {{-4, 98}, {111, 121}},
>>  Epilog -> {
>>    Text[Style[#, 12], #, {-1.25, 0}] & /@
>>     S11Exercise64b}]
>>
>> Graphics[{
>>   Text[Style[#, 12], #, {-1.25, 0}] & /@
>>    S11Exercise64b,
>>   Blue, AbsolutePointSize[6],
>>   Point[S11Exercise64b]},
>>  FrameLabel -> {x, y},
>>  Frame -> True,
>>  PlotRange -> {{-4, 98}, {111, 121}},
>>  AspectRatio -> 1/GoldenRatio]
>>
>>
>> Bob Hanlon
>>
>>
>> On Wed, Jul 4, 2012 at 3:29 AM, Mike McCraith <sandwaterhand at gmail.com>
>> wrote:
>> >
>> > Hello there.  I'm trying to graph a Scatter Plot based on a given list
>> > of
>> > data and have the coordinates appear near the point.
>> >
>> > I'm trying to save time and, instead of manually typing the text for the
>> > coordinates, I'd like to be able to pull the coordinates from the list
>> > to
>> > plot them point and list the text.  Here's what I have so far:
>> >
>> > S11Exercise64b = {{0, 120}, {10, 119}, {20, 118}, {30, 117}, {40, 116},
>> > {50, 115}, {60, 114}, {70, 113}, {80, 112}};
>> > ListPlot[S11Exercise64b, AxesLabel -> {x, y}, AxesOrigin -> {0, 0},
>> >  Epilog -> {Blue, PointSize[.02], Point[S11Exercise64b],
>> >    Text[Style[
>> >      "(" && S11Exercise64b[[1, 1]] && "," && S11Exercise64b[[1, 2]] &&
>> > ")",
>> > FontSize -> 18], {.9*S11Exercise64b[[1, 1]] + 30, .9*S11Exercise64b[[1,
>> > 2]]
>> > + .2}],
>> >    }
>> >  ]
>> >
>> >
>> > Please note, for this example, I am the first point (0, 120).
>> >
>> > The line that begins with the "(" && S11Exercise64b...is my attempt to
>> > extract the coordinates from the given list.  Thus, next to the point,
>> > it
>> > should read (0,120).  However, I am getting ( ^ 0^, ^ 120 ^).
>> > Basically,
>> > my lack of knowledge concerning strings is one of my issues.
>> >
>> > But, as you can see, once fixed, I'd have to create a Text[Style[ line
>> > for
>> > every ordered pair that I have in the list.  Is there a way to automate
>> > this process?  Again, a lack of know-how leads to now knowing how to do
>> > For
>> > loops.
>> >
>> > Any help is always greatly appreciated.
>> >
>> >
>> > Mike
>
>

--
Bob Hanlon

```

• Prev by Date: Re: Creating a Scatter Plot with Labeled Points
• Next by Date: Re: Creating a Scatter Plot with Labeled Points
• Previous by thread: Re: Creating a Scatter Plot with Labeled Points
• Next by thread: Re: Creating a Scatter Plot with Labeled Points