# NOT RUN {
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'))
# }
Run the code above in your browser using DataLab