1

If I plot many graphs with some standard set of options. Is there a way to store this set so that i can have better overview/structure over my plotting commands?

example, I plot a function f[x] with a set of options:

Plot[f[x], {x, 0, 1}, PlotRange -> All, Axes -> False, Frame -> True,
    PlotStyle ->Black, LabelStyle -> Directive[FontFamily -> "Symbol"], 
    FrameStyle -> AbsoluteThickness@1, BaseStyle -> {PrivateFontOptions ->
    {"OperatorSubstitution" -> False}}, AspectRatio -> 0.5/GoldenRatio, ImageSize -> 226]

I would like to reduce the above to something like:

plotoptions1={PlotRange -> All, Axes -> False, Frame -> True, 
     PlotStyle -> Black, LabelStyle -> Directive[FontFamily -> "Symbol"], 
     FrameStyle -> AbsoluteThickness@1, BaseStyle -> {PrivateFontOptions ->
     {"OperatorSubstitution" -> False}}, AspectRatio -> 0.5/GoldenRatio, ImageSize -> 226}

and then make a graph:

Plot[f[x], {x, 0, 1}, plotoptions1]

This structure does not work, I get the error:

Plot::nonopt: "Options expected (instead of plotoptions1) beyond position 3 in 
Plot[f[x], {x, 0, 1}, plotoptions1]. An option must be a rule or a list of rules"

But I thought plotoptions1 was a list of rules, so what should I do?

Szabolcs
  • 234,956
  • 30
  • 623
  • 1,263
Sander
  • 45
  • 5

2 Answers2

4
opts = {PlotRange -> All, Axes -> False, Frame -> True, 
  PlotStyle -> Red, LabelStyle -> Directive[FontFamily -> "Symbol"], 
  FrameStyle -> AbsoluteThickness@1, 
  BaseStyle -> {PrivateFontOptions -> {"OperatorSubstitution" ->   False}}, 
  AspectRatio -> 0.5/GoldenRatio,  ImageSize -> 226};

Plot[Sin@x, {x, 0, 1}, Evaluate[opts]]

Mathematica graphics

Dr. belisarius
  • 115,881
  • 13
  • 203
  • 453
0

You can also use the SetOptions function to change the default option settings for any function/symbol:

SetOptions[Plot, PlotRange -> All, Axes -> False, Frame -> True,
  PlotStyle -> Black, LabelStyle -> Directive[FontFamily -> "Symbol"],
   FrameStyle -> AbsoluteThickness@1, 
  BaseStyle -> {PrivateFontOptions -> {"OperatorSubstitution" -> 
       False}}, AspectRatio -> 0.5/GoldenRatio, ImageSize -> 226];

Plot[Sin[x], {x, 0, 1}]
MikeLimaOscar
  • 3,456
  • 17
  • 29
  • Ok, but then you have defined only one style. I would like to define a few standard styles. – Sander Mar 13 '14 at 17:05