Re: Re: LabeledListPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg96346] Re: [mg96315] Re: LabeledListPlot*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Thu, 12 Feb 2009 06:34:29 -0500 (EST)*Reply-to*: hanlonr at cox.net

data = Sort[RandomReal[{0, 1}, {10, 2}]]; ListPlot[List /@ data, PlotMarkers -> CharacterRange["a", FromCharacterCode[96 + Length[data]]], PlotRange -> {{0, 1}, {0, 1}}] ListPlot[data, PlotRange -> {{0, 1}, {0, 1}}, PlotMarkers -> Style[\[EmptyUpTriangle], 36], Epilog -> (Style[Text[#1[[1]], #1[[2]]], 10, Red] & ) /@ Transpose[{CharacterRange["a", FromCharacterCode[96 + Length[data]]], data}]] Bob Hanlon ---- TerryH <tlharter at verizon.net> wrote: ============= Hi Groupers: Last November 2008, I posted the inquiry below and one of the replies that I got was from Jens (also listed below & it worked great). Now I have a related question, which is: Instead of labeling the individual plotted points with an integer, how can you label the individual plotted points with textual labels? For example, I want to label the first plotted point with "a", the second one with "b", the third with "c", and so on. I've tried using PlotMarkers but that labels the entire data set and not individual points. The best that I could come up with is to make each x,y pair into its own list, for example with 3 points to plot (for the illustration here) data = {{x1,y1},{x2,y2},{x3,y3}} then feed data[[1]], data[[2]], data[[3]] into ListPlot, I want to apply the labels {"a","b","c"}. This works for a Point plotting symbol. However, it feels cumbersome. However, I'd really like to use a filled triangle for the plotting symbol and not the Graphic associated with what Graphic[Point[{num1,num2}]] gives. The only way I could get this to work is to generate 2 separate graphics with one (grfA) have the labels only, and the other (grfB) without labels but with the correct plotting symbol, and then bring them together using Show[grfA,grfB]. But this method really seems ackword, so surely there has to be a better way. I'm using Ver 6.0.3 Any suggestions? TIA .......Terry Jens-Peer Kuska wrote: > Hi, > > dta = Table[{tmp = Random[], Sin[Pi*tmp]}, {25}] // Sort; > > ListPlot[dta] /. > Point[lst : {{_, _} ..}] :> > MapIndexed[{Text[#2[[1]], #1, {-1, -1}], Point[#1]} &, lst] > > Regards > Jens > > TerryH wrote: >> Hi Groupers, >> In Ver 5.2 and earler there was a function called "LabeledListPlot" >> In Ver 6.0.1 and 6.0.3 of Mathematica, it seems that this function was >> inadvertently omitted (Hopefully, it will be included in the next >> update/Version). In the meantime does anyone know of a work-around so >> that one can produce a Labeled?List Plot in Ver 6.0? TIA >> .....Terry >>