Import packages

library(ggplot2)


Plotting quantitative predictors against Species

head(iris)
##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa
## 3          4.7         3.2          1.3         0.2  setosa
## 4          4.6         3.1          1.5         0.2  setosa
## 5          5.0         3.6          1.4         0.2  setosa
## 6          5.4         3.9          1.7         0.4  setosa
ggplot(iris, aes(x = Sepal.Width, y = Sepal.Length)) + 
  facet_wrap(~Species) + geom_point(size = 0.5) + geom_smooth() + theme_bw() + 
  ggtitle("Sepal Length vs. Sepal Width against Species")

center