wolfram-mathematica - プロットオプションをリストに保存

Question

Show[]関数の必要なスタイルに関する情報を保持する変数を作成できるかどうか疑問に思います。そのため、Show []にプロットを表示したいときは、その変数をShow []に挿入して、スタイルのオプションを設定します。

このようなものが欲しい...

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

    Show[
     ListLinePlot[data],
     OPTIONS
     ]

解決策は単純ですが、環境にやさしいです。:)

Answer 1

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

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

私のために働きます。

Answer 2

たとえば、Showオプションを使用してグラフィックに自動的に適用できます。$Post

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

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

$Postデフォルトに復元：

$Post =.