#' Plot breathing variability
#'
#' @param d data.frame, output of process_run_v2
#'
#' @return
#' @export
#'
#' @examples
plot_resp_var <- function(d){
require(ggplot2)
require(dplyr)
plt <- ggplot(filter(d, mins < max(mins, na.rm=T)-2)) +
geom_line(aes(mins, respiration_rate)) +
geom_line(aes(mins, lcb), color='red') +
geom_line(aes(mins, ucb), color = 'red') +
# ylim(0,80) +
labs(x = 'Minutes', y = 'Breathing rate')
print(plt)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.