# with ticks and range frames
(ggplot(mtcars, aes(wt, mpg))
+ geom_point() + geom_rangeframe()
+ theme_tufte())
# with geom_rug
(ggplot(mtcars, aes(wt, mpg))
+ geom_point() + geom_rug()
+ theme_tufte(ticks=FALSE))
## Using the Bembo serif family
library(extrafont)
(ggplot(mtcars, aes(wt, mpg))
+ geom_point() + geom_rangeframe()
+ theme_tufte(base_family="BemboStd"))
## Using the Gill Sans sans serif family
(ggplot(mtcars, aes(wt, mpg))
+ geom_point() + geom_rangeframe()
+ theme_tufte(base_family="GillSans"))
Run the code above in your browser using DataLab