Re: How to replace TextListPlot ?
- To: mathgroup at smc.vnet.net
- Subject: [mg90551] Re: [mg90524] How to replace TextListPlot ?
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 12 Jul 2008 05:34:48 -0400 (EDT)
- Reply-to: hanlonr at cox.net
data = {{{-0.00450345, 0.00461947}, "1"}, {{-0.00640622, 0.00864269},
"2"}, {{-0.00804805, 0.0149251}, "3"}, {{-0.0083926, 0.0237694},
"4"}, {{-0.00559377, 0.0349793}, "5"}, {{0.00204943, 0.0478226},
"6"}, {{0.0145364, 0.0611925}, "7"}, {{0.0306973, 0.073576},
"8"}, {{0.0498176, 0.0831007}, "9"}, {{0.0707737, 0.0881712},
"10"}};
Show[Graphics[{Text[#[[2]], #[[1]]] & /@ data}], Axes -> True]
Show[Graphics[{Text[#[[2]], #[[1]], {0, 2}] & /@ data,
Point[data[[All, 1]]]}], Axes -> True]
Bob Hanlon
---- mante <claude.mante at univmed.fr> wrote:
=============
Dear All,
I massively used LabeledListPlot and TextListPlot, which are
now obsolete.
I thougth these commands had been supersed by Tooltip, and wrote things
like:
data={{{-0.00450345, 0.00461947}, "1"}, {{-0.00640622, 0.00864269},
"2"}, {{-0.00804805, 0.0149251}, "3"}, {{-0.0083926, 0.0237694},
"4"}, {{-0.00559377, 0.0349793}, "5"}, {{0.00204943, 0.0478226},
"6"}, {{0.0145364, 0.0611925}, "7"}, {{0.0306973, 0.073576},
"8"}, {{0.0498176, 0.0831007}, "9"}, {{0.0707737, 0.0881712}, "10"}};
ListPlot[Map[Tooltip[#[[1]], #[[2]]] &, data], PlotRange -> All]
Not so bad, but this is not what I expected !
How could I transform this up-to-date dynamic graphic into an
old-fashioned static graphic =C3 la TextListPlot?
Thanks in advance,
Claude
--
*********************************
Claude Mant=C3=A9
UMR CNRS 6117 LMGEM
http://www.com.univ-mrs.fr/LMGEM/
Centre d'Oc=C3=A9anologie de Marseille
Campus de Luminy, Case 901
13288 MARSEILLE Cedex 09
tel : (+33) 491 829 127
fax : (+33) 491 829 119
*********************************