Mathematica任意数量的图形

Question

我是Mathematica 10.2的新手，我试图将多个对象放在一个图形中。如果对象的数量是固定的，这不会是一个大问题。以下代码给出了我正在寻找的确切结果，但它不够通用：

p = f[a]

Out[797]= {{4, 5, 11, 774.79}, {2, 7, 10, 1161.3}, {3, 8, 12, 1772.8}, {1, 6, 9, 2900.6}}

For[i = 1, i <= m, i++, 
  plot[i] = 
    Graphics[{Line[{data[[p[[i, 1]]]], data[[p[[i, 2]]]]}], 
    Line[{data[[p[[i, 2]]]], data[[p[[i, 3]]]]}], 
    Line[{data[[p[[i, 1]]]], data[[p[[i, 3]]]]}]}]]

Show[plot[1], plot[2], plot[3], plot[4]]

为清楚起见， p 的每个元素中的前三个数字指的是包含有序对的数据集 data 的索引。第四个数字是周长。

最后一行生成一个包含四个三角形的图形。问题是 p 可能有任意数量的元素，我需要这个来生成任意数量的三角形。我试图在 Show 命令中创建的绘图列表中使用 Do 和 For 循环，但这不起作用。是否有一个我缺少的命令，或者是否有更直接的方法来做我正在尝试做的事情？