Galton Child vs Parent height freq-sized scattersplot

galton_child_parent_height.R

library(UsingR)
library(ggplot2)
library(reshape)

data(galton)

freqData <- as.data.frame(table(galton$child, galton$parent))
names(freqData) <- c("child", "parent", "freq")
freqData$child <- as.numeric(as.character(freqData$child))
freqData$parent <- as.numeric(as.character(freqData$parent))

g <- ggplot(freqData[freqData$freq > 0, ], aes(x = parent, y = child))
g <- g + scale_size(range = c(2, 20), guide = "none")
g <- g + geom_point(color = "grey50", aes(size = freq, show_guide = FALSE))
g <- g + geom_point(aes(color = freq, size = freq))
g <- g + scale_color_gradient(low = "lightblue", high = "white")
g

output.md