knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(navr) library(ggplot2) obj <- navr_object obj <- add_time_columns(obj) obj <- add_distances(obj) obj <- add_speeds(obj)
PLotting path of the subject
plot_path(obj) plot_position_heatmap(obj)
plt <- plot_path(obj) plt + geom_navr_heatmap(obj, 25, alpha=0.3)
plt <- plot_path(obj) #animate_path(plt)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.