Re: PLEASE HELP!! Need to change symbols in LinearLogListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg23816] Re: PLEASE HELP!! Need to change symbols in LinearLogListPlot
- From: Hartmut Wolf <hwolf at debis.com>
- Date: Sat, 10 Jun 2000 03:00:25 -0400 (EDT)
- Organization: debis Systemhaus
- References: <393C5787.A5363CB5@r.imap.itd.umich.edu>
- Sender: owner-wri-mathgroup at wolfram.com
Rodney Agayan schrieb:
>
> Having enormous trouble figuring out how to change the symbol in
> LinearLogListPlot, or any type of ListPlot for that matter.
>
> Changing symbols is relatively easy in MultipleListPlot, however doing
> such in LinearLogListPlot has confounded me. Can anyone help?
>
> On the other hand, if anyone knows how to modify MultipleListPlot so
> that it plots lists on Linear-Log scales, that would be greatly
> appreciated!!!
>
Dear Rodney,
of course we can scavange on MultipleListPlot, e.g. like that:
<< Graphics`MultipleListPlot`
<< Graphics`Graphics`
Now be ...
t = Table[Exp[n^2], {n, 0, 10}];
... our data, and let's have ...
lp = LinearLogListPlot[t, PlotJoined -> True]
lpt = LinearLogListPlot[t, PlotJoined -> False]
... as we like. The trick is to get at a private function of MultipleListPlot.
So we define
ss[sym_, size:(_Integer | _Real):5., style: _?(!NumberQ[#] &):{}, t___?OptionQ]
:=
Graphics`MultipleListPlot`Private`doshape[style, PlotSymbol[sym, size, opt],
None, #] &
... and now we can do different things:
Show[lp, Graphics[ss[Diamond] @ lp[[1, 1]] ]]
Show[lp, Graphics[ss[Box, 3.5] @ lp[[1, 1]] ]]
Show[lp, Graphics[ss[Star, 7, Hue[0], Filled -> False] @ lp[[1, 1]] ]]
Show[lpt,
Graphics[ss[Triangle, Hue[2/3]] @ (lpt[[1]] /. Point -> Sequence)]]
Kind regards, Hartmut Wolf