6  facet()

library(ggplot2)

p<-ggplot(mpg)+aes(cty,hwy)+geom_point()+geom_smooth();p

`geom_smooth()` using method = 'loess' and formula 'y ~ x'

p+facet_grid(.~drv)

`geom_smooth()` using method = 'loess' and formula 'y ~ x'

p<-ggplot(mpg)+aes(cty,hwy)+geom_point()+geom_smooth()+coord_polar(theta = "y");p

`geom_smooth()` using method = 'loess' and formula 'y ~ x'

p+facet_grid(.~drv)

`geom_smooth()` using method = 'loess' and formula 'y ~ x'

ggplot(mpg)+
  geom_point(aes(cty,hwy,color=class,shape=as.factor(cyl)))+
  facet_wrap(~class)

ggplot(mpg,aes(cty,hwy,color=class))+
  geom_smooth(method="lm",color="grey",size=4)+ 
  geom_point(size=3)+
  facet_wrap(~class)

`geom_smooth()` using formula 'y ~ x'