Re: SymbolShape
- To: mathgroup at smc.vnet.net
- Subject: [mg52900] Re: [mg52853] SymbolShape
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 16 Dec 2004 03:40:39 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Naima,
Here is one method.
<< Graphics`Graphics`
<< Graphics`MultipleListPlot`
points1 = {{9 + 273, 0.012}, {11 + 273, 0.016}, {12 + 273, 0.15}, {13 + 273,
0.32}, {15 + 273, 0.3}, {18 + 273, 0.195}, {20 + 273,
0.098}, {22 + 273, 0.055}, {25 + 273, 0.02}, {30 + 273, 0.017}};
logdata = points1 /. {x_, y_} -> {x, Log[10, y]};
Show[Graphics[{PlotSymbol[Box, 4, Filled -> False] /@ logdata}],
Frame -> True,
FrameTicks -> {Automatic, LogScale, None, None},
PlotRange -> {{275, 306}, {-2.2, -0.3}}];
PlotSymbol comes from MultipleListPlot. All we have to do is Map it onto the
logdata. It acts just like Point except it draws a box instead of a solid
point. Since we scaled the data, we use LogScale (which comes from Graphics)
to supply the ticks on the y axis.
If you also want to draw the line, you can just add a Line primitive...
Show[Graphics[{PlotSymbol[Box, 4, Filled -> False] /@ logdata,
Line[logdata]}], Frame -> True,
FrameTicks -> {Automatic, LogScale, None, None},
PlotRange -> {{275, 306}, {-2.2, -0.3}}];
If you want just two sides of the frame use
Show[Graphics[{PlotSymbol[Box, 4, Filled -> False] /@ logdata,
Line[logdata]}],
Frame -> {True, True, False, False},
FrameTicks -> {Automatic, LogScale},
PlotRange -> {{275, 306}, {-2.2, -0.3}}];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Naima Khelfaoui [mailto:khelfaou at ese-metz.fr]
To: mathgroup at smc.vnet.net
Hi,
I need to know how I can change the shape of the points (to box or
triangle) when I use LogListPlot ?
for example :
In[1]:=
<< Graphics`Graphics`
In[2]:=
points1 = {{9 + 273, 0.012}, {11 + 273, 0.016}, {12 + 273, 0.15}, {13 + 273,
0.32}, {15 + 273, 0.3}, {18 + 273, 0.195}, {20 + 273,
0.098}, {22 + 273, 0.055}, {25 + 273, 0.02}, {30 + 273, 0.017}};
In[4]:=
a11 = LogListPlot[points1, PlotStyle -> {PointSize[0.02], Hue[.6]},
GridLines -> None, PlotRange -> All];
Thanks.