如何从绘制列表的名称中获取绘图标签？

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