geom_rangeframe

geom_rangeframe

library(ggthemes)
library(patchwork)
library(ggplot2)

P1 <- ggplot(mtcars,aes(wt,mpg))+ ggtitle('Has rangeframe')+
      geom_point()+geom_rangeframe()+theme_tufte()+ theme(plot.title=element_text(hjust=0.5))
P2 <- ggplot(mtcars,aes(wt,mpg))+ ggtitle('No rangeframe')+
      geom_point()+theme_tufte()+ theme(plot.title=element_text(hjust=0.5))
P1|P2

More