Creating a Scatter Plot with Labeled Points

• To: mathgroup at smc.vnet.net
• Subject: [mg127169] Creating a Scatter Plot with Labeled Points
• From: Mike McCraith <sandwaterhand at gmail.com>
• Date: Wed, 4 Jul 2012 03:29:28 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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.