mathematica(mma)给网格加行列编号

为了简明的看清楚网格中图像元素所对应的取值，这里特意加了行号和列号（可以是两个参数的取值）

data1 = Table[   Plot[Sin@x, {x, 0, 2 Pi}, Frame -> True, Axes -> False,    PlotStyle -> Directive[Thick, Red]], 5];

data2 = Table[   Plot[Sin@x, {x, 0, 2 Pi}, Frame -> True, Axes -> False,    PlotStyle -> Directive[Thick, Blue]], 5];

data3 = Table[   Plot[Sin@x, {x, 0, 2 Pi}, Frame -> True, Axes -> False,    PlotStyle -> Directive[Thick, Darker@Green]], 5];

data4 = Table[   Plot[Sin@x, {x, 0, 2 Pi}, Frame -> True, Axes -> False,    PlotStyle -> Directive[Thick, Black]], 5];

Prepend[First[{{data1, data2, data3, data4}}],  Table["" <> ToString[i] <> "", {i, 1, 5, 1}]];

Grid[MapThread[  Prepend, {%,   ToString /@    ReplacePart[Prepend[N[#, 3] & /@ Table[i, {i, 1, 4, 1}], 1],     1 -> " "]}], Frame -> All]

效果如下：