2

初めての投稿ですので、既存の質問に基づいて新しい質問をするのは悪い形であるとお詫び申し上げます。

ここに示すような「ラップチャート」を作成しようとしています。

ListLinePlotを使用したモータースポーツラップチャート

私のニーズには少しひねりがあります。私は別のスポーツのラップポジションをグラフ化していますが、データの構造も異なります。データはチームごとにリストされており、各ラップの完了時にチームがいた位置が示されています。たとえば、データのサンプルは次のとおりです。

BRA = {03, 01, 01, 01};
CAN = {14, 14, 06, 10};
CRO = {10, 08, 11, 12};
DEN = {05, 05, 04, 11};
FRA = {13, 11, 14, 13};
GBR = {04, 02, 02, 02};
GER = {15, 15, 12, 09};
GRE = {16, 16, 16, 16};
IRL = {01, 03, 08, 06};
NOR = {02, 04, 09, 05};
NZL = {06, 06, 05, 08};
POL = {08, 07, 03, 03};
POR = {11, 13, 15, 15};
SUI = {07, 09, 10, 07};
SWE = {09, 10, 07, 04};
USA = {12, 12, 13, 14};

この例では、ブラジルは最初のラップの終わりに3位になり、2番目のラップの終わりまでに最初に移動し、3番目のラップの場所を保持してからフィニッシュしました。

前の例で投稿したコードに合う形式でデータを手動で再入力して必要なグラフを作成しましたが、より効率的な方法が必要です。任意の提案をいただければ幸いです。

もう1つの質問...現在、特定のラップの終わりの位置は等間隔に配置されていますが、実際のレースでは、1位は2秒より20秒進んでおり、おそらく3位より10秒進んでいました。次の競合他社の前の相対的な時間を反映するように各位置をプロットする方法はありますか？

これが私の現在の作業コードです：

data = {{09, 10, 01, 06, 04, 11, 14, 12, 15, 03, 13, 16, 05, 02, 07, 08}, 
{01, 06, 09, 10, 04, 11, 12, 03, 14, 15, 05, 16, 13, 02, 07, 08}, 
{01, 06, 12, 04, 11, 02, 15, 09, 10, 14, 03, 07, 16, 05, 13, 08}, 
{01, 06, 12, 15, 10, 09, 14, 11, 07, 02, 04, 03, 05, 16, 13, 08}};

{p, n} = {Max@data, Length@data};

ListLinePlot[
 Replace[Array[data~Position~# &, 
   p], {lap_, y_} :> {lap - 1, -y}, {2}], 

Frame -> True,

FrameLabel -> {"Rounding", "Position", "Rounding", 
   "Final Positions"}, GridLines -> {Range[0, n + 1], None},

FrameTicks -> {
{{{-1, "IRL"}, {-2, "NOR"}, {-3, "BRA"}, {-4, "GBR"}, {-5, 
  "DEN"}, {-6, "NZL"}, {-7, "SUI"}, {-8, "POL"}, {-9, 
  "SWE"}, {-10, "CRO"}, {-11, "POR"}, {-12, "USA"}, {-13, 
  "FRA"}, {-14, "CAN"}, {-15, "GER"}, {-16, "GRE"}},

 {{-1, "1 BRA"}, {-2, "2 GBR"}, {-3, "3 POL"}, {-4, "4 SWE"}, {-5, 
  "5 NOR"}, {-6, "6 IRL"}, {-7, "7 SUI"}, {-8, "8 NZL"}, {-9, 
  "9 GER"}, {-10, "10 CAN"}, {-11, "11 DEN"}, {-12, 
  "12 CRO"}, {-13, "13 FRA"}, {-14, "14 USA"}, {-15, 
  "15 POR"}, {-16, "16 GRE"}}},

{{{0, "W1"}, {1, "L1"}, {2, "W2"}, {3, "F"}},
{{0, "W1"}, {1, "L1"}, {2, "W2"}, {3, "F"}}}},

PlotRange -> {Automatic, {-.7, -.3 - p}},

PlotStyle -> Thickness[.003]]
4

1 に答える 1

5

ここでは、最小限の手動作業でデータを再フォーマットする方法を説明します。

tot = {
  BRA = {03, 01, 01, 01},  CAN = {14, 14, 06, 10},  CRO = {10, 08, 11, 12},  
  DEN = {05, 05, 04, 11},  FRA = {13, 11, 14, 13},  GBR = {04, 02, 02, 02},
  GER = {15, 15, 12, 09},  GRE = {16, 16, 16, 16},  IRL = {01, 03, 08, 06},
  NOR = {02, 04, 09, 05},  NZL = {06, 06, 05, 08},  POL = {08, 07, 03, 03},
  POR = {11, 13, 15, 15},  SUI = {07, 09, 10, 07},  SWE = {09, 10, 07, 04},
  USA = {12, 12, 13, 14}}

その後、

data = Ordering /@ Transpose@tot

あなたが言及した質問で@DavidCarraherの答えを使用します。

Mathematicaグラフィックス

編集

各チーム（各ラップ）のタイミングがある場合は、時間スケールのプロットをプロットするためのスケルトンを次に示します。 

lapTimes   = RandomReal[{0, 1}, {10, 5}];(*ten teams,five laps*)
ListLinePlot[Accumulate /@ lapTimes, PlotRange -> {{1, 5}, All}]

Mathematicaグラフィックス

最後の下の行が勝者です（消費時間は少なくなります）

于 2012-08-01T01:10:50.420 に答える