Mixing Numbers and Symbols in Time Series Charts

悠悠 2022-08-07 12:36 3阅读 0赞

(This article was first published on  **[OUseful.Info, the blog... » Rstats][OUseful.Info_ the blog... _ Rstats]**, and kindly contributed to [R-bloggers)][R-bloggers]

One of the things I’ve been trying to explore with my \#f1datajunkie projects are ways of representing information that work both in a glanceable way as well as repaying deeper reading. I’ve also been looking at various ways of using text labels rather than markers to provide additional information around particular data points.

For example, in a race battlemap, with lap number on the horizontal x-axis and gap time on the vertical y-axis, I use a text label to indicate which driver is ahead (or behind) a particular target driver.

[![battlemaps-postionbattles-1][]][battlemaps-postionbattles-1 1]

In the revised version of this chart type shown in [ F1 Malaysia, 2015 – Rosberg’s View of the Race][F1 Malaysia_ 2015 _ Rosberg_s View of the Race], and additional numerical label along the x-axis indicatesd the race position of the target driver at the end of each lap.

What these charts are intended to do is help the eye see particular structural shapes within the data – for example whether a particular driver is being attacked from behind in the example of a battlemap, or whether they are catching the car ahead (perhaps with intervening cars in the way – although more needs to be done on the chart with respect to this for examples where there are several intervening cars; currently, only a single intervening car immediately ahead on track is shown.)

Two closer readings of the chart are then possible. Firstly, by looking at the y-value we can see the actual time a car is ahead (and here the dashed guide line at +/1 1s helps indicate in a glanceable way the DRS activation line; I’m also pondering how to show an indication of pit loss time to indicate what effect a pit stop might have on the current situation). Secondly, we can read off the labels of the drivers involved i a battle to get a more detailed picture of the race situation.

The latest type of chart I’ve been looking at are session utilisation maps, which in their simplest form look something like the following:

[![simple\_session\_utilisation][simple_session_utilisation]][simple_session_utilisation_simple_session_utilisation]

The charts show how each driver made use of a practice session or qualifying – drivers are listed on the vertical y-axis and the time into the session each lap was recorded at is identified along the horizontal x-axis.

This chart makes it easy to see how many stints, and of what length, were completed by each driver and at what point in the session. Other information might be inferred – for example, significant gaps in which no cars are recording times may indicate poor weather conditions or red flags. However, no information is provided about the times recorded for each lap.

We can, however, use colour to identify “purple” laps (fastest lap time recorded so far in the session) and “green” laps (a driver’s fastest laptime so far in the session that isn’t a purple time), as well as laps on which a driver pitted:

[![augmented\_session\_utilisation][augmented_session_utilisation]][augmented_session_utilisation_augmented_session_utilisation]

But still, no meaningful lap times.

One thing to note about laptimes is that they come in various flavours, such as *outlaps*, when a driver starts the lap from the pitlane; *inlaps*, or laps on which a driver comes into the pits at the end of the lap; and *flying laps* when a driver is properly going for it. There are also those laps on which a driver may be trying out various new lines, slowing down to give themselves space for a flying lap, and so on.

Assuming that inlaps and outlaps are not the best indicators of pace, we can use a blend of symbols and text labels on the chart to identify inlaps and outlaps, as well as showing laptimes for “racing” laps, also using colour to highlight purple and green laps:

[![session\_utlisation\_annotated][session_utlisation_annotated]][session_utlisation_annotated_session_utlisation_annotated]

The chart is produced using ggplot, and a layered approach in which chart elements are added to the chart in separate layers.

<table> 
 <tbody> 
  <tr> 
   <td> 
    <div>
      1 
    </div> 
    <div>
      2 
    </div> 
    <div>
      3 
    </div> 
    <div>
      4 
    </div> 
    <div>
      5 
    </div> 
    <div>
      6 
    </div> 
    <div>
      7 
    </div> 
    <div>
      8 
    </div> 
    <div>
      9 
    </div> 
    <div>
      10 
    </div> 
    <div>
      11 
    </div> 
    <div>
      12 
    </div> 
    <div>
      13 
    </div> 
    <div>
      14 
    </div> 
    <div>
      15 
    </div> 
    <div>
      16 
    </div> 
    <div>
      17 
    </div> </td> 
   <td> 
    <div> 
     <div> 
      <code>#The base chart with the dataset used to create the original chart</code> 
     </div> 
     <div> 
      <code>#In this case, the dataset included here is redundant</code> 
     </div> 
     <div> 
      <code>g = </code> 
      <code>ggplot</code> 
      <code>(f12015test)</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>#Layer showing in-laps (laps on which a driver pitted) and out-laps</code> 
     </div> 
     <div> 
      <code>#Use a subset of the dataset to place markers for outlaps and inlaps</code> 
     </div> 
     <div> 
      <code>g = g + </code> 
      <code>geom_point</code> 
      <code>(data=f12015test[f12015test[</code> 
      <code>'outlap'</code> 
      <code>] | f12015test[</code> 
      <code>'pit'</code> 
      <code>],],</code> 
      <code>aes</code> 
      <code>(x=cuml, y=name, color=</code> 
      <code>factor</code> 
      <code>(colourx)), pch=1)</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>#Further annotation to explicitly identify pit laps (in-laps)</code> 
     </div> 
     <div> 
      <code>g = g + </code> 
      <code>geom_point</code> 
      <code>(data=f12015test[f12015test[</code> 
      <code>'pit'</code> 
      <code>]==</code> 
      <code>TRUE</code> 
      <code>,],</code> 
      <code>aes</code> 
      <code>(x=cuml, y=name),pch=</code> 
      <code>'.'</code> 
      <code>)</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>#Layer showing full laps with rounded laptimes and green/purple lap highlights</code> 
     </div> 
     <div> 
      <code>#In this case, use the laptime value as a text label, rather than a symbol marker</code> 
     </div> 
     <div> 
      <code>g = g + </code> 
      <code>geom_text</code> 
      <code>(data=f12015test[!f12015test[</code> 
      <code>'outlap'</code> 
      <code>] &amp;amp; !f12015test[</code> 
      <code>'pit'</code> 
      <code>],],</code> 
      <code>aes</code> 
      <code>(x=cuml, y=name, label=</code> 
      <code>round</code> 
      <code>(stime,1), color=</code> 
      <code>factor</code> 
      <code>(colourx)), size=2, angle=45)</code> 
     </div> 
     <div>
       &nbsp; 
     </div> 
     <div> 
      <code>#Force the colour scale to be one we want</code> 
     </div> 
     <div> 
      <code>g = g + </code> 
      <code>scale_colour_manual</code> 
      <code>(values=</code> 
      <code>c</code> 
      <code>(</code> 
      <code>'darkgrey'</code> 
      <code>,</code> 
      <code>'darkgreen'</code> 
      <code>,</code> 
      <code>'purple'</code> 
      <code>))</code> 
     </div> 
    </div> </td> 
  </tr> 
 </tbody> 
</table>

This version of the chart has the advantage of being glanceable when it comes to identifying session utilisation (number, duration and timing of stints) as well as when purple and green laptimes were recorded, as well as repaying closer reading when it comes to inspecting the actual laptimes recorded during each stint.

To reduce clutter on the chart, laptimes are round to 1 decimal place (tenths of a second) rather than using the full lap time which is recorded down to thousandths of a second.

*Session utilisation charts are described more fully in a forthcoming chapter of the **[Wrangling F1 Data With R][]** Leanpub book. Buying a copy of the book gains you access to future updates of the book. A draft version of the chapter can be found [ here][here].*

[OUseful.Info_ the blog... _ Rstats]: http://blog.ouseful.info/2015/04/08/mixing-numbers-and-symbols-on-time-series-chart/
[R-bloggers]: http://www.r-bloggers.com/
[battlemaps-postionbattles-1]: /images/20220805/b0e4161e2927460ab152a1f89d3389ad.png
[battlemaps-postionbattles-1 1]: https://ouseful.files.wordpress.com/2015/01/battlemaps-postionbattles-1.png
[F1 Malaysia_ 2015 _ Rosberg_s View of the Race]: http://www.f1datajunkie.com/2015/04/f1-malaysia-2015-rosbergs-view-of-race.html
[simple_session_utilisation]: /images/20220805/92af5c7de9bb4fa788723d9198cd7cfb.png?w=700&h=493
[simple_session_utilisation_simple_session_utilisation]: /images/20220805/92af5c7de9bb4fa788723d9198cd7cfb.png
[augmented_session_utilisation]: /images/20220805/593cf691cea44190b8dc2883c36836c9.png?w=700&h=490
[augmented_session_utilisation_augmented_session_utilisation]: /images/20220805/593cf691cea44190b8dc2883c36836c9.png
[session_utlisation_annotated]: /images/20220805/fb534c68474d461ab6b3de7367966311.png?w=700&h=478
[session_utlisation_annotated_session_utlisation_annotated]: /images/20220805/fb534c68474d461ab6b3de7367966311.png
[Wrangling F1 Data With R]: https://leanpub.com/wranglingf1datawithr/
[here]: https://dl.dropboxusercontent.com/u/1156404/wranglingf1preview/wranglingf1datawithr-draft-sessionUtilisation.pdf