RE: multiple list plot and frameticks
- To: mathgroup at smc.vnet.net
- Subject: [mg45447] RE: [mg45427] multiple list plot and frameticks
- From: "David Park" <djmp at earthlink.net>
- Date: Wed, 7 Jan 2004 17:31:12 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Nathan,
<< Graphics`Graphics`
<< Graphics`MultipleListPlot`
flist = Table[{p, 4.Exp[-5. p]}, {p, 1, 15, 2}];
dx = Transpose[flist][[1]]
dy = Transpose[flist][[2]]
MultipleListPlot[Transpose[{dx, Log[10, dy]}],
SymbolShape -> {PlotSymbol[Box, 2]},
Axes -> False,
Frame -> True, FrameTicks -> {Automatic, LogScale, Automatic,
Automatic},
ImageSize -> 450];
That works except that we would probably prefer not to have the "1. x" on
all the tick labels, or the form "0.001" and the right hand tick marks do
not correspond to the left hand tick marks.
With DrawGraphics I was able to use CustomTicks to eliminate the problems.
Needs["DrawGraphics`DrawingMaster`"]
logdata = {#1, Log[10, #2]} & @@ # & /@ flist
Draw2D[
{PlotSymbol[Box, 2] /@ logdata,
Gray, Line[logdata]},
Frame -> True,
FrameTicks ->
{Automatic,
CustomTicks[6Log[10, 1000#] &, {-10, 0, {1}, {}},
CTNumberFunction -> (NumberForm[N[#], ExponentFunction ->
Identity,
NumberFormat -> (Module[{exp = 6(ToExpression[#3] + 3)},
If[exp == 0, 1, Superscript[10, exp]]] &)] &)],
Automatic,
CustomTicks[6Log[10, 1000#] &, {-10, 0, {1}, {}},
CTNumberFunction -> ("" &)]},
PlotLabel -> "Log Plot With Custom Tick Marks",
ImageSize -> 450];
I'll send separately a gif image of the plot.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Nathan Moore [mailto:nmoore at physics.umn.edu]
To: mathgroup at smc.vnet.net
Hi,
I'd like to use multiple list plot and frame ticks to generate a plot
of log-linear data (I'm aware that LogLinearListPlot would be easier
but that doesn't allow for plot-markers (box, triangle, star etc).
At present I'm doing the following, data set
flist = Table[{p, 4.Exp[-5. p]}, {p, 1, 15, 2}]
then I can make a simple plot with
<< Graphics`Graphics`
LinearLogListPlot[flist]
But I want to plot this with other data in a B&W paper, so I need to
use Multiple List Plot,
<< Graphics`MultipleListPlot`
dx=Transpose[flist][[1]]
dy=Transpose[flist][[2]]
MultipleListPlot[
Transpose[{dx,Log[dy]}],
SymbolShape -> {PlotSymbol[Box, 2]},
Axes->False,
Frame->True
];
The hang-up is that the axes are funny. I could use FrameTicks and
LogScale/LinearScale to specify ticks, but if I do so, I see that in
both cases LogScale and Linear Scale generate a 2-d set of axis that
FrameTicks won't accept
LinearScale[ dx[[1]], dx[[-1]] ]
LogScale[ dy[[1]], dy[[-1]] ]
So, do I have to generate my frame ticks by hand, or is there a clever
way to generate axes of different scale.
NT Moore
U of Minnesota Physics