Wolfram mathematica 在ListPlot中指定颜色顺序

我试图找出如何使用Mathematica的颜色方案处理离散数据。例如，我在表单中有一个时间序列列表

s={{{1946,1},{1947,2},{1948,3}},{{1946,-2},{1947,-1.8}}}

等等；大约有30个不同长度的系列。如果我使用

ListPlot

打印/加入/覆盖这些系列，是否有方法指示Mathematica通过从

ColorData

返回的

ColorFunction

中获取均匀间隔的颜色来为每个打印选择颜色（例如，

“Rainbow”

）

我如何将其与指令结合起来，使每个绘图

变厚

ListPlot[s,Joined->True,PlotStyle->{Thick,???}]

---

假设这是您的数据-一个由30个不同长度的列表组成的不完整列表：

data = Table[.5 k + RandomReal[1, RandomInteger[{8, 14}]], {k, 30}];

这是你需要的吗

ListPlot[data, Joined -> True, 
         PlotStyle -> Thread@{Thick, ColorData["Rainbow"] /@ Range[0, 1, 1/29]}]

---

我很困惑；

Flatten

不应该是

Thread

？为什么

生成的表单会变平

工作？我希望这会使第一行

的样式变厚

，然后剩下的部分变彩色。@Mr.Wizard你说得对，

线程

更干净、更新。我只是从经验中知道，

flatte

有效。我仍然想知道为什么

{thick，color，color，…}

会起作用，如果您有解释的话。@Mr.Wizard这就是如何设置此语法以解析为图形-查看输入表单