#+begin_src R
  library(RMySQL)
  con <- dbConnect(MySQL(), host="localhost", user = "root", password="", dbname = "poker_errorlog")
  rs <- dbSendQuery(con, "select date, message from export_poker order by date desc limit 300000")
  ds11 <- fetch(rs, n=300000)
  plot(factor(format(as.POSIXct(ds11$date), "%Y%m%d")))
#+end_src