# 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