Re: Creating a Scatter Plot with Labeled Points

*To*: mathgroup at smc.vnet.net*Subject*: [mg127177] Re: Creating a Scatter Plot with Labeled Points*From*: Bill Rowe <readnews at sbcglobal.net>*Date*: Thu, 5 Jul 2012 06:13:18 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

On 7/4/12 at 3:29 AM, sandwaterhand at gmail.com (Mike McCraith) 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}}; <code snipped> Try something like this: ListPlot[S11Exercise64b, AxesLabel -> {x, y}, AxesOrigin -> {0, 0}, PlotStyle -> {Blue, PointSize[.02]}, Epilog -> {Text[#, {1, .95} #] & /@ S11Exercise64b[[2 ;; -1 ;; 2]]}] I've set this to label every other point since labeling each point makes it difficult to read the labels. If you need to see coordinates for every point in a plot with many points, look at using ToolTip to display the coordinates of a point when you hover your mouse over that point. Note, the usage of PlotStyle. It makes no sense to have ListPlot plot the data and use the Epilog directive to re-plot the same data with a larger point size or different color. You are essentially plotting the data twice. It is far more efficient to use the directive PlotStyle to specify point size, color etc. so that data points are plotted once with the desired attributes. Or if you wanted a larger font for the labels ListPlot[S11Exercise64b, AxesLabel -> {x, y}, AxesOrigin -> {0, 0}, PlotStyle -> {Blue, PointSize[.02]}, Epilog -> {Text[Style[#,16], {1, .95} #] & /@ S11Exercise64b[[2 ;; -1 ;; 2]]}] Or to use () instead of {} ListPlot[S11Exercise64b, AxesLabel -> {x, y}, AxesOrigin -> {0, 0}, PlotStyle -> {Blue, PointSize[.02]}, Epilog -> {Text[ Style["(" <> StringTake[ToString@#, {2, -2}] <> ")", 16], {1, .9} #] & /@ S11Exercise64b[[2 ;; -1 ;; 2]]}]