bin/plot.R

#!/usr/bin/Rscript --vanilla

require("ggplot2")
require("scales")

stats = read.csv("estimates.csv")


p_labeller <- function (var, value) {
  return (paste("p=", value))
}

p <- ggplot(data = stats, aes(x = card, y = median)) +
  geom_point(aes(colour = factor(p))) +
  geom_text(aes(label = percent(median)), hjust = -0.2, size = 2) +
  geom_errorbar(aes(ymax = p95, ymin = p05, colour = factor(p)), alpha = 0.8, size=0.2) +
  scale_x_log10(breaks = unique(stats$card), labels = comma) +
  ##scale_x_continuous(breaks = seq(0, max(stats$card), by = 5000), labels = comma) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  ##scale_y_continuous(breaks = c(0:100 / 1000), labels = percent) +
  scale_y_continuous(labels = percent) +
  facet_grid(. ~ p) +
  ylab("Median relative error") +
  xlab("Cardinality")


ggsave(file = "hyper.png", width = 10, height = 6)