fitbitr R Package

https://github.com/teramonagi/fitbitr

# devtools::install_github("teramonagi/fitbitr")

library(fitbitr)
library(tidyverse)

token <- fitbitr::oauth_token()

HR_intraday_date <- "2018-12-01"
Today <- as.character(Sys.Date())

Steps

CMC_dsteps <- get_activity_time_series(token, "steps", date=Today, period="max") %>%
  rename(steps = value) %>%
  mutate(steps = as.numeric(steps))

ggplot(CMC_dsteps, aes(x = as.Date(dateTime), y=steps / 1000)) +
  geom_point(size=2, shape=1) +
  geom_smooth(se=FALSE) +
  labs(x = "Date", y = "Thousands of Steps") +
  theme_minimal()

Miles

Daily Resting Heart Rate

CMC_hrate <- get_heart_rate_time_series(token, date=Today, period="1y")

HR_DF <- data.frame(dateTime = CMC_hrate[,1], 
                    restingHeartRate = CMC_hrate[,2]$restingHeartRate)

ggplot(HR_DF, aes(x = as.Date(dateTime), y=restingHeartRate)) +
  geom_jitter(size=2, shape=1, width = 0, height = 0.1) +
  geom_smooth(se=FALSE) +
  scale_y_continuous(limits=c(56,68), breaks = seq(56,68, 1)) +
  labs(x = "Date", y = "Heart Rate") +
  theme_minimal()

Intraday Heart Rate

df <- get_heart_rate_intraday_time_series(token, date=HR_intraday_date, detail_level="1min")

df <- mutate(df, time = as.POSIXct(paste(HR_intraday_date, df$time), format="%Y-%m-%d %H:%M:%S"))

ggplot(df, aes(x=time, y=value)) + 
  geom_path() +
  geom_smooth(se=FALSE) +
  scale_y_continuous(limits=c(0,200), breaks = seq(0,200, 25)) +
  labs(x = "Time", y = "Heart Rate") +
  theme_minimal()