knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
activatr
has utility functions to easily annotate a GPX DF with information about the speed (and corresponding pace) of an activity.
First, let's parse our sample GPX DF:
library(activatr) # Get the running_example.gpx file included with this package. filename <- system.file( "extdata", "running_example.gpx.gz", package = "activatr" ) df <- parse_gpx(filename)
knitr::kable(head(df, 5))
This has information about location and time, but it's often useful to visualize the "mile pace" over the course of an activity, especially for runs.
The first thing to add to the table is the speed. mutate_with_speed
is a wrapper around dyplr::mutate
that will add a speed
column to the data frame:
df <- mutate_with_speed(df)
knitr::kable(head(df, 5))
However, speed (in meters per second) isn't the most useful metric for runs; mile pace (in minutes and seconds) is a more common measurement. We can convert speed
to pace
using speed_to_mile_pace
:
df$pace <- speed_to_mile_pace(df$speed)
knitr::kable(head(df, 5))
Finally, while pace
here is a lubridate
duration object, it's most easily understood in a "MM:SS" format: pace_formatter
is provided for that: contrast the readability of the two pace graphs below, the first plotting pace unmodified, the second reversing the axis and adding the formatter.
library(ggplot2) library(dplyr) library(lubridate) ggplot(filter(df, as.numeric(pace) < 1200)) + geom_line(aes(x = time, y = as.numeric(pace)), color = "blue") ggplot(filter(df, as.numeric(pace) < 1200)) + geom_line(aes(x = time, y = as.numeric(pace)), color = "blue") + scale_y_reverse(label = pace_formatter)
Note that the speed and pace are calculated at every point, so they will often be somewhat noisy. Computing the rolling mean of the speed to smooth out the graph would be numerically inaccurate, so mutate_with_speed
provides helper arguments to allow the speed to be computed over larger windows.
In particular, it has lag
and lead
(which default to 1
and 0
respectively), which determines the "start" and "end" points used for the speed computation. So if we wanted each point's speed to be determined using the points ten ahead and ten behind and plot that, we could do:
df <- mutate_with_speed(df, lead = 10, lag = 10) df$pace <- speed_to_mile_pace(df$speed) ggplot(filter(df, as.numeric(pace) < 1200)) + geom_line(aes(x = time, y = as.numeric(pace)), color = "blue") + scale_y_reverse(label = pace_formatter) + xlab("Time") + ylab("Pace")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.