Histogram from IIS log.r

iislog <- read.delim("Filtered.log", header=TRUE, sep=" ")
iislog <- within(v, { localdatetime=as.POSIXct(paste(date, time)) + 13*60*60 })
 
h <- hist(
  iislog$localdatetime,
  freq = TRUE,
  breaks=24,
  xlab = "Time of day",
  ylab = "Requests per hour",
  axes = F,
  main="Distribution of traffic throughout day (requests / hour)"
  )
box()
axis.POSIXct(
  1,
  at = seq(as.POSIXct("2014-12-29 00:00:00"), as.POSIXct("2014-12-29 23:59:59"), by = "1 hour"),
  format = "%H")
axis(2)