Re: How to replace TextListPlot ?
- To: mathgroup at smc.vnet.net
- Subject: [mg90529] Re: How to replace TextListPlot ?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 11 Jul 2008 05:57:34 -0400 (EDT)
- Organization: Uni Leipzig
- References: <g56tho$412$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
a)
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"}};
Graphics[
{Point[#[[1]]], Text[#[[2]], #[[1]], {-1, -1}] } & /@ data,
Frame -> True]
or
b)
ListPlot[Map[Tooltip[#[[1]], #[[2]]] &, data], PlotRange -> All] /.
Tooltip[{___, Point[{a_}], ___}, lbl_] :> {Point[a],
Text[lbl, a, {-1, -1}]}
Regards
Jens
mante 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 =E0 la TextListPlot?
> Thanks in advance,
> Claude
>