Как я могу получить ярлык графика от имени составленного списка?

Question

У меня есть список данных, называемый DataList. Я могу построить данные с помощью ListPlot и назовите этот участок после ввода списка, как это:

ListPlot[DataList, PlotLabel -> ToString[HoldForm[DataList]]]

Это работает, и я получаю сюжет так же, как я хочу. Но у меня есть много списков данных, так что я пишу функцию для этой цели, используя следующие:

plot[input_] := ListPlot[input, PlotLabel -> ToString[HoldForm[input]]]

Однако, когда я входной список прямо сейчас, то «PlotLabel» не будет отражают имя списка, в который я вставлял, а скорее содержимое этого списка.

Есть ли способ извлечь имя списка/выражения до того, как функция его оценит?

Любые другие идеи, чтобы обойти проблему?

Я очень благодарен за любые советы.

Answer 1

DataList = {1, 2, 5, 4, 3, 7}; 
SetAttributes[plot, HoldFirst]; 
plot[input_] := ListPlot[input, PlotLabel -> ToString[Unevaluated[input]]]; 
plot[DataList] 

...PlotWithPlotLabel DataList snipped...