Re: conditional plotstyles in ListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg73373] Re: [mg73342] conditional plotstyles in ListPlot
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 14 Feb 2007 05:22:35 -0500 (EST)
- Reply-to: hanlonr at cox.net
Needs["Graphics`"];
data=Table[{t,20*Random[]-10},{t,20}];
DisplayTogether[
ListPlot[Select[data,#[[2]]>=0&],
PlotStyle->{AbsolutePointSize[4],Blue}],
ListPlot[Select[data,#[[2]]<0&],
PlotStyle->{AbsolutePointSize[4],Red}]];
DisplayTogether[
ListPlot[data,PlotJoined->True,
PlotStyle->{GrayLevel[.5],AbsoluteDashing[{5,5}]}],
ListPlot[#,PlotStyle->{AbsoluteThickness[2],
Hue[.35(Sign[#[[-1,2]]]+1)]},
PlotJoined->True]&/@
Split[data,Sign[#1[[2]]]==Sign[#2[[2]]]&]];
DisplayTogether[
ListPlot[data,PlotJoined->True,
PlotStyle->{GrayLevel[.5],AbsoluteDashing[{5,5}]}],
ListPlot[#,PlotStyle->{AbsoluteThickness[2],
Hue[.35(Sign[#[[-1,2]]]+1)]},
PlotJoined->True]&/@
Split[data,Sign[#1[[2]]]==Sign[#2[[2]]]&],
ListPlot[Select[data,#[[2]]>=0&],
PlotStyle->{AbsolutePointSize[4],Blue}],
ListPlot[Select[data,#[[2]]<0&],
PlotStyle->{AbsolutePointSize[4],Red}]];
Bob Hanlon
---- Stern <nycstern at gmail.com> wrote:
> I am plotting a time series and would like to use different colors for
> points above the x-axis from the colors below the x-axis. I can think
> of some relatively inelegant ways of doing this, splitting my dataset
> in two, plotting them separately, and them showing the graphs
> together, but I feel as though there may be a better solution.
>
> Help?
>
> Thank you,
>
> Michael
>