library("GGally") ggpairs(train[,3:13], aes(color = is_churn, alpha=0.2))+ theme_bw()
library(car) spm(~Sepal.Length + Sepal.Width + Petal.Length + Petal.Width | Species, data=iris)
pairs(iris, col = c("red", "cornflowerblue", "purple")[iris$Species])
plot(x,y)
library(graphics) smoothScatter(x, y)