qplot(displ, hwy, data = mpg, color=drv, geom = c("point", "smooth")) - kolorowy z zacieniem i krzywa

qplot(drv,hwy,data=mpg,geom="boxplot") -  BOXPLOT

g <- ggplot(mpg,aes(displ,hwy)) - UTWORZENIE
g+geom_point()+geom_smooth() - nieliwniowe
g+geom_point()+geom_smooth(method="lm") - liniowe

g+geom_point()+geom_smooth(method="lm") + facet_grid(.~drv) - podzielone na rodzaje z drv
g+geom_point()+geom_smooth(method="lm") + facet_grid(.~drv)+ ggtitle("Swirl Rules!") - PLUS TYTUL