Сохранить параметры участка в списке

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