wolfram-mathematica - ListPlotで色のシーケンスを指定する

Question

Mathematicaの配色を離散データで使用する方法を理解しようとしています。たとえば、次の形式の時系列のリストがあります

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

等々; さまざまな長さの約30のシリーズがあります。を使用してこれらのシリーズをプロット/結合/オーバーレイする場合、 （たとえば）によって返されるListPlot色から等間隔の色を取得することによって各プロットの色を選択するようにMathematicaに指示する方法はありますか？ColorFunctionColorData"Rainbow"

これをディレクティブと組み合わせて各プロットを作成するにはどうすればよいThickですか？

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

Answer 1

これがあなたのデータだと想像してみてください-さまざまな長さの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]}]