Re: Creating a Scatter Plot with Labeled Points

*To*: mathgroup at smc.vnet.net*Subject*: [mg127183] Re: Creating a Scatter Plot with Labeled Points*From*: Tomas Garza <tgarza10 at msn.com>*Date*: Thu, 5 Jul 2012 06:15:22 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201207040729.DAA01346@smc.vnet.net>

Forget about Do's and For's. Try this: 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[.01],Point[S11Exercise64b],Style[Text[ToString[#],#,{0,2}],8,"Label"]&/@S11Exercise64b},PlotRange->{{-5,85},{-5,125}}] But I'd rather use Tooltip which will show the coordinates of the points when you place the cursor over each of them. S11Exercise64b = {{0, 120}, {10, 119}, {20, 118}, {30, 117}, {40, 116}, {50, 115}, {60, 114}, {70, 113}, {80, 112}}; ListPlot[Tooltip[S11Exercise64b], AxesLabel -> {x, y}, AxesOrigin -> {0, 0}, Epilog -> {Blue, PointSize[.01], Point[S11Exercise64b]}, PlotRange -> {{-5, 85}, {-5, 125}}] In this way you obtain a less cluttered graph. -Tomas > Date: Wed, 4 Jul 2012 03:29:28 -0400 > From: sandwaterhand at gmail.com > Subject: Creating a Scatter Plot with Labeled Points > To: mathgroup at smc.vnet.net > > > 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

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