ggplot2: display every nth value on discrete axis

every_nth = function(n) { return(function(x) {x[c(TRUE, rep(FALSE, n - 1))]}) } ggplot(mpg, aes(x = class, y = cyl)) + geom_point() + scale_x_discrete