caching-approaches-comparison

diff --git a/analysis/cache-balance.R b/analysis/cache-balance.R
index fc91fca..2a6637b 100644
--- a/analysis/cache-balance.R
+++ b/analysis/cache-balance.R
@@ -78,6 +78,7 @@ plot <- ggplot(slice, aes(x = factor(users), y = percentage, fill = version)) +
 	ylim(NA, 1.6) +
 	facet_grid(event ~ application, scales = "free") +
 	theme(axis.text.x = element_text(angle = 0)) +
+	theme(axis.title.y = element_blank(), axis.text.y = element_blank(), axis.ticks.y = element_blank()) +
 	theme(text = element_text(size = 8)) +
 	theme(legend.position = "bottom")
 

diff --git a/analysis/cache-size.R b/analysis/cache-size.R
new file mode 100644
index 0000000..1a8e1ce
--- /dev/null
+++ b/analysis/cache-size.R
@@ -0,0 +1,30 @@
+library(ggplot2)
+
+sizes <- read.csv("../applications/output/cache-size-distribution.csv")
+
+print("=== cache-size ===")
+pdf("cache-size.pdf")
+
+iter_applications = unique(sizes$application)
+for (iter_application in iter_applications) {
+	slice_application <- subset(sizes, application == iter_application)
+	plot <- ggplot(slice_application, aes(x = time, y = size, group = name)) +
+	geom_line(aes(colour = name)) +
+	scale_colour_grey(start = 0.1, end = 0.6) +
+	facet_grid(version ~ users, scales = "free") +
+	theme(legend.position = "bottom") +
+	ggtitle(iter_application)
+	print(plot)
+}
+
+slice <- aggregate(formula = size~application+version+users+time, data = sizes, FUN = sum)
+
+print("=== cache-size-aggregated ===")
+pdf("cache-size-aggregated.pdf")
+
+plot <- ggplot(slice, aes(x = time, y = size)) +
+	geom_line(aes(colour = factor(users))) +
+	scale_colour_grey(start = 0.1, end = 0.6) +
+	facet_grid(application ~ version, scales = "free") +
+	theme(legend.position = "bottom")
+print(plot)
\ No newline at end of file

diff --git a/analysis/throughput.R b/analysis/throughput.R
index 6fc9a1b..4751cd2 100644
--- a/analysis/throughput.R
+++ b/analysis/throughput.R
@@ -48,6 +48,7 @@ plot <- ggplot(aggregate, aes(x = factor(users), y = median_percentage, fill = v
 	scale_colour_grey(start = 0.2, end = 0.6) +
 	facet_wrap(~ application, scales = "free", ncol = 4) +
 	theme(axis.text.x = element_text(angle = 0)) +
+	theme(axis.title.y = element_blank(), axis.text.y = element_blank(), axis.ticks.y = element_blank()) +
 	theme(legend.position = "bottom")
 
-ggsave("throughput-normalised.pdf", width = 10, height = 5)
+ggsave("throughput-normalised.pdf", width = 18, height = 11, units = "cm")