wolfram-mathematica - 使用表中的一列作为 x 值，其他列作为 y 值进行绘图

Question

我有一个矩阵，第一列是时间，第二列是 A 的位置，第三列是 B 的位置，等等。我想将 A、B、...的位置绘制为函数当时，在同一张图中。Mathematica 中是否有比逐列绘制图表然后通过“显示”组合它们更有效的方法？

另外，我希望这些图的颜色自动选择为彼此不同；为了让这种自动化有用，同时会自动生成一个图例。如何在 Mathematica 中做到这一点？

谢谢！

[更新]：克里斯的方法非常有效。但是默认的图例使用了颜色有点难以分辨的小点；此外，似乎只有 4 种颜色；在我的情况下，大约有 20 个 y 值，这使得图例实际上毫无用处。是否还有其他更大、颜色更多的符号（例如，一些灰度或连续变化的颜色）？

Answer 1

a = {{{2001, 1, 1}, 2, 3, 4},
     {{2002, 1, 1}, 3, 4, 5},
     {{2003, 1, 1}, 4, 5, 6},
     {{2004, 1, 1}, 5, 6, 7},
     {{2005, 1, 1}, 6, 7, 8}};

DateListPlot[MapThread[Transpose[{#1, #2}] &,
  {Table[First /@ a, {Length@Rest@Last@a}], Transpose[Rest /@ a]}],
 Joined -> True, PlotLegends -> {"A", "B", "C"}]