ggPlot2: Histogram with jittered stripchart

Here is an example of a Histogram plot, with a stripchart (vertically jittered) along the x side of the plot.

	library(ggplot2)
	movies <- movies[1:1000,]
	m <- ggplot(movies, aes(x=rating))
	m + geom_histogram(binwidth=0.2, colour = "darkgreen", fill = "white", size=1) + geom_point(aes(y = -2), position = position_jitter(height = 0.8), size=1)

view raw Hist1 hosted with ❤ by GitHub

Alternatively, using the geom_rug function:

	library(ggplot2)
	movies <- movies[1:1000,]
	m <- ggplot(movies, aes(x=rating))
	m + geom_histogram(binwidth=0.2, colour = "darkgreen", fill = "white", size=1) + geom_rug(aes(y=-2), position="jitter", sides="b")

view raw hist2 hosted with ❤ by GitHub

Of course this simplicistic method need to be adjusted in vertical position of the stripchart or rugchart (y=-2, here), and the relative proportion of points jittering.