What 5,728.986 miles look like…

[This article was first published on ProcRun; » R, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Time Series as calendar heat maps + All of my running data since April 1, 2009 =

Generated by the following code:

#Sample Code based on example program at:
source(file = "calendarHeat.R")

run<- read.csv("log.csv", header = TRUE, sep=",")
sum(run$Distance)

date <- c()

for (i in 1: dim(run)[1]){

    if(run$DistanceUnit[i]== 'Kilometer'){
      miles <- c(miles,run$Distance[i] * 0.62)
    }
    else{
      miles <- c(miles,run$Distance[i])
    }
}
sum(miles)

calendarHeat(run$Date, miles, varname="Andy's Running Mileage")

You can see the definite shift in the length of my daily runs over the past 12 months.  Race times have dropped a chunk over that same period.

The heat map still needs some cleaning up,  using 26.2 as the max intensity is preventing the differences in my shorter runs from coming through.  Capping it at max of 15 (shortest of my ‘long’ runs) is probably a good idea to further show the shift in my daily mileage.

One of these days I need to transfer the 4,534.62 miles I have logged into notebooks to the computer.   Buying a Garmin Forerunner and having the data automatically updated to Runningahead.com  made it super easy to get the dataset.

Full code and source files are available on bitbucket:  RunningHeatMap

To leave a comment for the author, please follow the link and comment on their blog: ProcRun; » R.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)