epijim · December 28, 2015 01:28
diff --git a/bubbletable.r b/bubbletable.r
 # ggplot2 base layer
 g <- ggplot(table)

 # Bubble plots - edit limits and seq based on your data
 (g + geom_point(aes(x = XAxis, y = YAxis, size = Percent, colour = total),shape=16, alpha=0.80) +
   scale_colour_gradient(limits = c(0, 1400), low="blue", high="red", breaks= seq(0, 1400, by = 200))  +
   scale_x_continuous(breaks = 1:4, labels=c("Category1", "Category2", "Category3","Category4")) +
   scale_y_continuous(trans = "reverse") + coord_fixed(ratio=0.2)
 )
	# ggplot2 base layer
	g <- ggplot(table)

	# Bubble plots - edit limits and seq based on your data
	(g + geom_point(aes(x = XAxis, y = YAxis, size = Percent, colour = total),shape=16, alpha=0.80) +
	scale_colour_gradient(limits = c(0, 1400), low="blue", high="red", breaks= seq(0, 1400, by = 200)) +
	scale_x_continuous(breaks = 1:4, labels=c("Category1", "Category2", "Category3","Category4")) +
	scale_y_continuous(trans = "reverse") + coord_fixed(ratio=0.2)
	)