Matrix Mathematica：如何在同一个图形中垂直绘制矩阵的几行

我创建了一个名为Theta的数组，包含100行和400列。每个条目都是一个数字。我想做的是绘制一个图表

0.01 vs第1行中的每个数字

0.02 vs第2行中的每个数字

1对第100行中的每个数字

所以基本上每条线都是垂直绘制的

我可以为每一行这样做，但我不知道如何同时为所有行这样做。而手工完成所有100行肯定不是好办法

到目前为止，我的代码是：

data = Table[Theta[i][j], {i, 100}, {j, 400}];

Line1 = Table[data[[1, i]], {i, 1, 400}];

ListPlot[{MapIndexed[{0.01, #} &, Line1]]

编辑： 好的，我终于做到了

如果有人感兴趣，下面是：

data = Table[Theta][i][j], {i, 100}, {j, 400}];
final = {};
For[g = 1, g < 100, g++,
    Line[g] = MapIndexed[{0.01*g, #} &, Table[data[[g, i]], {i, 1, 400}]];
    final = Join[final, Line[g]];
]
ListPlot[final]

data=Table[Theta][i][j]，{i，100}，{j，400}]；
最终={}；
对于[g=1，g<100，g++，
行[g]=MapIndexed[{0.01*g，#}&，表[data[[g，i]]，{i，1400}]；
final=连接[final，第[g]行]；
]
列表图[最终版本]

这里是一个示例答案，使用一组略小的10行40列随机数，以0.1、0.2、0.3、…、1而不是0.01的间隔绘制

data = Table[x + RandomReal[5], {x, 1, 10}, {y, 1, 40}];

以下是绘制的数据：

ListPlot[ MapThread[ Function[x, {#2, x}] /@ #1 &, {data, Range[0.01, 1, .1]}]]

---

这里有点困惑，您发布的第二段代码似乎有一些语法问题。特别是，

Line

在Mathematica中是一个保留符号，因此

Line[g]=…

将抛出一个错误。第一段代码创建了一个列表，

data

，其形式为

{{Theta[1][1]、Theta[1][2]、Theta[1][3]、…}、{Theta[2][1]、Theta[2][2]、…}、}

，它们不是数值。你对它按照你的意愿工作感到高兴吗？