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>