(ggplot(mtcars, aes(x = wt + runif(1), y = mpg))
+ geom_point()
+ geom_rangeframe()
+ theme_tufte()
+ scale_x_tufte()
+ scale_y_tufte()
)
(ggplot(mtcars, aes(x = wt + runif(1), y = mpg))
+ geom_point()
+ geom_rangeframe()
+ theme_tufte()
+ scale_x_tufte()
+ scale_y_tufte()
)