library("ggplot2")
# 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))
## Not run:
# ## 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'))
# ## End(Not run)
Run the code above in your browser using DataLab