set.seed(34)
df <- data.frame(date = seq(as.POSIXct('2012-02-09 00:00', tz = 'CET'),
as.POSIXct('2012-02-11 00:00', tz = 'CET'),
by = '60 min'), heart_rate = runif(49, min = 60, max = 180))
ggplot(df, aes(x = date, y = heart_rate)) +
geom_line()
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.