g <- ggplot(data=latency,
            aes(x=total_observed_delay)) +
  geom_histogram(binwidth=1) +
  scale_y_log10(breaks=c(1, 10, 100, 1000),
                labels=c("1", "10", "100", "1000")) +
  xlim(1,500) + facet_grid(type~CPU) +
  xlab(expression(paste("Delay [", mu, "s]"))) +
  ylab(" # samples [a.u.]")  + theme_bw()