Render dot-plot of Keystrokes by minute

keystrokes_dotplot.r

setwd("~/analytics/")
kp = read.csv("grouped_keys_combined")
colnames(kp) = c("Day", "Minute", "Strokes")
attach(kp)

parseTimestamp <- function(ts) as.POSIXct((ts + 120*60*1000) / 1000, origin="1970-01-01", tz="CEST")
kp$DayParsed <- parseTimestamp(kp$Day)
head(kp$DayParsed)

library("ggplot2")

ggplot(kp, aes(x = kp$DayParsed, y = kp$Minute, color = kp$Strokes)) +
  geom_point() +
  scale_x_datetime(
    breaks = scales::date_breaks("1 day"),
    labels = scales::date_format("%A, %b %d")) +
  scale_y_continuous(
    breaks = c(0, 540, 720, 960, 1080, 1320, 1440),
    labels = c("Midnight2", "9AM", "Noon", "4PM", "6PM", "10PM", "Midnight"),
    limits=c(0, 1440))