library(hms)
set.seed(34)
df <- data.frame(hours = hms(hours = 1:24), heart_rate = runif(24, min = 60, max = 180))
ggplot(df, aes(x = heart_rate, y = date)) +
geom_line() +
scale_y_time()
Tutorials, educational apps, cheat sheets and courses for you to master ggplot2
I am an Instructional Designer and a former educational scientist with a curiosity for web development and data visualization. Find me on my personal homepage or LinkedIn.