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 >