使用ListLinePlot进行赛车圈图表
|
我正在尝试获取赛车圈数的位置表，并绘制类似于此http://www.fia.com/zh-CN/sport/championships/f1/2010/bahrain/Pages/lap_chart.aspx的圈数图。
每行对应一个圈，第一圈位于第一行。在每行中按开始/结束行的顺序列出了汽车编号
这张表看起来像这样（4站比赛，6圈：
1 3 2 4
1 3 2 4
1 3 4 2
3 1 4 2
3 1 4 2
3 4 1 2
在上面的示例中，顺序是第一圈之后的1、3、2、4，在6圈比赛结束时，赛车3获胜，赛车4位居第二，依此类推。
错误地绘制很容易，我这样做是：
ListLinePlot[Table[Position[data,x],{x,4}]]
没有找到相关结果
已邀请:
6 个回复
吐兄
{{lap_, y_} :> {lap - 1, -y}}如何被代替。减1，因为我包括了起始位置的数据（圈数=零）。 进行较小的重写，以与不同数量的驾驶员和赛车圈配合使用，并重新格式化代码以提高可读性。 -向导先生data = {{1, 3, 2, 4}, {1, 3, 2, 4}, {1, 3, 4, 2}, {3, 1, 4, 2}, {3, 1, 4, 2}, {3, 4, 1, 2}}; {p, n} = {Max@data, Length@data}; ticks = {#, #} &@Array[{-#, #} &, p]; ticks[[All, 1, 2]] = {\"Pole\", \"Winner\"}; PrependTo[data, Range@p]; (* add starting position *) ListLinePlot[ Replace[ Array[data~Position~# &, p], {lap_, y_} :> {lap - 1, -y}, {2} ], Frame -> True, FrameLabel -> {\"Laps Completed\", \"Starting Positions\", \"Laps Completed\", \"Final Positions\"}, GridLines -> {Range[0, n + 1], None}, FrameTicks -> {ticks, {All, All}}, PlotRange -> {Automatic, {-.7, -.3 - p}}, PlotStyle -> Thickness[.01] ]拟僚疽刊剔
ListLinePlot[ Table[Position[data, x] /. {xx_, yy_} :> {xx, 5 - yy}, {x, 4}], Ticks -> {Automatic, {{1, 4}, {2, 3}, {3, 2}, {4, 1}}}, PlotStyle -> Thickness[.01]]念炯
和brought8ѭ，所以我们开始...BarChart[Ordering /@ data, ChartLayout -> \"Overlapped\", Joined -> Automatic, BarSpacing -> 0, ChartElementFunction -> ({} &), ChartStyle -> 1, ScalingFunctions -> \"Reverse\", Axes -> False, Frame -> {{True, False}, {True, False}}, PlotRange -> {All, All}, BaseStyle -> Thickness[0.01]]解决方案可能更容易。可惜的是它尚不支持。）绵扇寸访
laps = {{1, 3, 2, 4}, {1, 3, 2, 4}, {1, 3, 4, 2}, {3, 1, 4, 2}, {3, 1, 4, 2}, {3, 4, 1, 2}}; ListLinePlot[ -Thread[Ordering /@ laps], AxesOrigin -> {1, 0}, PlotStyle -> Thick, Ticks -> {All, Array[{-#, #} &, 4]} ]哩翔购
data = {{1, 3, 2, 4}, {1, 3, 2, 4}, {1, 3, 4, 2}, {3, 1, 4, 2}, {3, 1, 4, 2}, {3, 4, 1, 2}}; ListLinePlot[Table[Position[5 - data, x], {x, 4}], Axes -> {True, False}]骇毖煽洁铂
现在似乎可以与一起使用data = {{1, 3, 2, 4}, {1, 3, 2, 4}, {1, 3, 4, 2}, {3, 1, 4, 2}, {3, 1, 4, 2}, {3, 4, 1, 2}}; ListLinePlot[Table[Position[data, x], {x, 4}], ScalingFunctions -> {Identity, \"Reverse\"}, AxesOrigin -> {1, -5}]