Re: LabeledListPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg96347] Re: LabeledListPlot*From*: dh <dh at metrohm.com>*Date*: Thu, 12 Feb 2009 06:34:40 -0500 (EST)*References*: <gepb26$sgs$1@smc.vnet.net> <gerqib$re2$1@smc.vnet.net> <gmu8s0$gne$1@smc.vnet.net>

Hi Terry, simply change your number to the corresponding character by: FrimCharacterCode: ListPlot[dta] /. Point[lst : {{_, _} ..}] :> MapIndexed[{Text[FromCharacterCode[96 + #2[[1]]], #1, {-1, -1}], Point[#1]} &, lst] hope this helps, Daniel TerryH 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 >>> >