Re: Creating a Scatter Plot with Labeled Points

*To*: mathgroup at smc.vnet.net*Subject*: [mg127184] Re: Creating a Scatter Plot with Labeled Points*From*: Mike McCraith <sandwaterhand at gmail.com>*Date*: Thu, 5 Jul 2012 06:15:43 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201207040729.DAA01346@smc.vnet.net> <CAEtRDSc5TsW7CjhG6YLgRsCzTXkA=WOaQfYaJw7hF+dy=arn2g@mail.gmail.com>

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 > --20cf303ea694116ab604c4038151 Content-Type: text/html; charset="ISO-8859-1" Content-Transfer-Encoding: quoted-printable X-Sun-Content-Length: 3608 Thanks much!<div><br></div><div>My remaining question is then is it possibl= e to have the ordered pair read as (0, 120) instead of {0, 120}?<br><br><di= v class="gmail_quote">On Wed, Jul 4, 2012 at 6:55 AM, Bob Hanlon <span di= r="ltr"><<a href="mailto:hanlonr357 at gmail.com" target="_blank">han= lonr357 at gmail.com</a>></span> wrote:<br> <blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1p= x #ccc solid;padding-left:1ex">If you put the axes origin at {0, 0} it is d= ifficult to read the labels.<br> <div class="im"><br> S11Exercise64b = {{0, 120}, {10, 119}, {20, 118}, {30, 117}, {40, 116}, {= 50,<br> 115}, {60, 114}, {70, 113}, {80, 112}};<br> <br> ListPlot[S11Exercise64b,<br> </div> PlotStyle -> {Blue, AbsolutePointSize[6]},<br> <div class="im"> FrameLabel -> {x, y},<br> </div> Frame -> True,<br> Axes -> False,<br> PlotRange -> {{-4, 98}, {111, 121}},<br> Epilog -> {<br> Text[Style[#, 12], #, {-1.25, 0}] & /@<br> S11Exercise64b}]<br> <br> Graphics[{<br> Text[Style[#, 12], #, {-1.25, 0}] & /@<br> S11Exercise64b,<br> Blue, AbsolutePointSize[6],<br> Point[S11Exercise64b]},<br> <div class="im"> FrameLabel -> {x, y},<br> </div> Frame -> True,<br> PlotRange -> {{-4, 98}, {111, 121}},<br> AspectRatio -> 1/GoldenRatio]<br> <span class="HOEnZb"><font color="#888888"><br> <br> Bob Hanlon<br> </font></span><div class="HOEnZb"><div class="h5"><br> <br> On Wed, Jul 4, 2012 at 3:29 AM, Mike McCraith <<a href="mailto:sandwat= erhand at gmail.com">sandwaterhand at gmail.com</a>> wrote:<br> ><br> > Hello there. I'm trying to graph a Scatter Plot based on a give= n list of<br> > data and have the coordinates appear near the point.<br> ><br> > I'm trying to save time and, instead of manually typing the text f= or the<br> > coordinates, I'd like to be able to pull the coordinates from the = list to<br> > plot them point and list the text. Here's what I have so far:<b= r> ><br> > S11Exercise64b = {{0, 120}, {10, 119}, {20, 118}, {30, 117}, {40, 11= 6},<br> > {50, 115}, {60, 114}, {70, 113}, {80, 112}};<br> > ListPlot[S11Exercise64b, AxesLabel -> {x, y}, AxesOrigin -> {0, = 0},<br> > Epilog -> {Blue, PointSize[.02], Point[S11Exercise64b],<br> > Text[Style[<br> > "(" && S11Exercise64b[[1, 1]] && = "," && S11Exercise64b[[1, 2]] && ")",<b= r> > FontSize -> 18], {.9*S11Exercise64b[[1, 1]] + 30, .9*S11Exercise64b= [[1, 2]]<br> > + .2}],<br> > }<br> > ]<br> ><br> ><br> > Please note, for this example, I am the first point (0, 120).<br> ><br> > The line that begins with the "(" && S11Exercise64b.= ..is my attempt to<br> > extract the coordinates from the given list. Thus, next to the poin= t, it<br> > should read (0,120). However, I am getting ( ^ 0^, ^ 120 ^). Bas= ically,<br> > my lack of knowledge concerning strings is one of my issues.<br> ><br> > But, as you can see, once fixed, I'd have to create a Text[Style[ = line for<br> > every ordered pair that I have in the list. Is there a way to autom= ate<br> > this process? Again, a lack of know-how leads to now knowing how to= do For<br> > loops.<br> ><br> > Any help is always greatly appreciated.<br> ><br> > Thanks in advance!<br> ><br> > Mike<br> </div></div></blockquote></div><br></div> --20cf303ea694116ab604c4038151--

**References**:**Creating a Scatter Plot with Labeled Points***From:*Mike McCraith <sandwaterhand@gmail.com>