Save plot options in list

Question

I wonder if it is possible to make a variable that holds info obout wanted style for Show[] function. So ewery time i want to display plots in Show[] i will insert that variable in Show[] to set options for style.

I want something like this...

OPTIONS=
     AxesOrigin -> Automatic,
     LabelStyle -> Directive[14, Black, Bold, Italic],
     ImageSize -> {450}

    Show[
     ListLinePlot[data],
     OPTIONS
     ]

The solution is simple but im green. :)

score 2 · Accepted Answer · answered Mar 01 '13 at 22:15

2

OPTIONS = {AxesOrigin -> Automatic, 
  LabelStyle -> Directive[14, Red, Bold, Italic], ImageSize -> {450}}

Show[ListLinePlot[{1, 2, 3, 4, 5}], OPTIONS]

Works for me.

answered Mar 01 '13 at 22:15

C. E.

10,297
10
53
77

Thanks i didnt know what i must do with the "," :) – Mar 01 '13 at 22:26

score 0 · Answer 2 · answered Mar 04 '13 at 09:15

You could apply Show with options to graphics automatically using $Post, e.g.

$Post := With[{opts = {
     AxesOrigin -> Automatic,
     LabelStyle -> Directive[14, Black, Bold, Italic],
     ImageSize -> {250}}},
  If[Head[#] === Graphics, Show[#, opts], #] &]

ListLinePlot[{1, 2, 3, 4, 5}]

enter image description here

Restoring $Post to default:

$Post =.

Save plot options in list

2 Answers2