Creating a Tufte-style range-frame scatterplot using ggplot

ggplot_range_frame.R

library(ggplot2)
library(ggthemes)

ggplot(mtcars, aes(wt,mpg))+
  geom_point()+
  theme_tufte()+
  theme(axis.ticks = element_blank())+
  xlab("Car weight (lb/1000)")+ 
  ylab("Miles per gallon of fuel")+ 
  scale_x_continuous(breaks = round(as.vector(quantile(mtcars$wt)), digits = 1))+
  scale_y_continuous(breaks = round(as.vector(quantile(mtcars$mpg)), digits = 1))