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(breaks = every_nth(n = 3))
https://stackoverflow.com/questions/52919899/ggplot2-display-every-nth-value-on-discrete-axis
ggplot2: display every nth value on discrete axis
原文：https://www.cnblogs.com/3Dgenome/p/14742468.html