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 =.