如何把多张绘制好的 图 按四方格 排好 并标上 abcd 画在一起

Question

用mma 怎么把四张或多张图 像 这样排好 画成一张图

Answer 1

这种样式OK不，参数可以自己再调整调整：

(*生成4张图像*)
images = Table[
   Plot[Sin[k x], {x, 0, 2 Pi}, Background -> GrayLevel[0.9], 
    ImageSize -> 300], {k, {1, 2, 4, 8}}];
(*生成4个标签*)
labeles = 
  Rasterize[Style[# <> ")", 10, Black, FontFamily -> "Calibri"],
     ImageResolution -> 220,
     RasterSize -> 100,
     ImageSize -> 14] & /@ CharacterRange["a", "d"];
(*组合标签和图片*)
il = Partition[Riffle[labeles, images], 4]
(*网格*)
grid = Grid[il, Alignment -> {Left, Top}]
(*输出图片*)
Export["D:/grid.png", grid]