Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Re: Colored ListPlot

  • To: mathgroup at
  • Subject: [mg36918] Re: [mg36904] Re: Colored ListPlot
  • From: Selwyn Hollis <selwynh at>
  • Date: Wed, 2 Oct 2002 03:31:48 -0400 (EDT)
  • References: <>
  • Sender: owner-wri-mathgroup at

Here's a better version of DotPlot that is improved by Borut's and 
Allan's idea:


DotPlot[data_?MatrixQ, opts___Rule] :=
Module[{colorfn, scale, dotsize, m, scalefn},
  colorfn = ColorFunction/.{opts}/.{ColorFunction->Hue};
  scale = ColorFunctionScaling/.{opts}/.{ColorFunctionScaling->True};
  dotsize = DotSize/.{opts}/.{DotSize->0.01};
  m = If[scale, {Min[#],Max[#]}& @ Last[Transpose[data]], {0,1}];
  scalefn = (# - m[[1]])/(m[[2]]-m[[1]])& ;
    Show[ Graphics[
     FilterOptions[Graphics, opts] ] ]


  • Prev by Date: Sum of 1/Primes
  • Next by Date: RE: Re: Using Text Cells
  • Previous by thread: Re: Colored ListPlot
  • Next by thread: Re: Kernel API