MathGroup Archive 2002

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

Search the Archive

RE: Using Symbols with Plot


There sure is. You can use the standard package Graphics`MultipleListPlot`.
But the MultipleListPlot routine itself is not quite as useful as the
routines PlotSymbol, MakeSymbol and RegularPolygon that the package
contains. It is often easier to use the construction I show below. If you
have a set of data points, you can plot the line just by wrapping Line
around the data points. You can plot the symbols just by mapping the symbol
onto the data points.  You could also use the Text statement and StyleForm
to use any character as a plot symbol. You could also map Circle or Disk
onto the points. Here is an example using MakeSymbol and PlotSymbol.


sindata = Table[{x, Sin[x]}, {x, 0, Pi, Pi/20}];
cosdata = Table[{x, Cos[x]}, {x, 0, Pi, Pi/20}];

cross[size_] :=
  MakeSymbol[{Line[{{-size, 0}, {size, 0}}], Line[{{0, -size}, {0, size}}]}]

        Blue, cross[4] /@ sindata,
        Red, PlotSymbol[Box, 4, Filled -> False] /@ cosdata}],
    Frame -> True,
    PlotLabel -> "Plotting With Symbols",
    ImageSize -> 400

Here is an example using Text statements

      Text[StyleForm["A", FontSize -> 12, FontColor -> Blue], #] & /@
      Text[StyleForm["B", FontSize -> 12, FontColor -> Red], #] & /@
  Frame -> True,
  PlotLabel -> "Plotting With Symbols",
  ImageSize -> 400

David Park
djmp at

> From: Bill Toole [mailto:bill.toole at]
To: mathgroup at
> Hi
> I would like to be able to use symbols such as +, o, x, square,
> triangle etc when I use Plot[] to plot several functions.
> Is there a package of some sort that allows this?
> Thanks in advance
> Bill Toole
> Conexant Sysytems
> Ottawa, Ontario, Canada

  • Prev by Date: Re: Reading .csv files
  • Next by Date: Re: Re: Numerical Differentiation using Fourier Transform
  • Previous by thread: Re: Using Symbols with Plot
  • Next by thread: Why do symbols appear as accented letters in my notebook?