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.
>> >
>> > Thanks in advance!
>> >
>> > Mike
>
>
--
Bob Hanlon
- References:
- Creating a Scatter Plot with Labeled Points
- From: Mike McCraith <sandwaterhand@gmail.com>
- Creating a Scatter Plot with Labeled Points