library(PerformanceAnalytics)
chart.Correlation(iris[-5], bg=iris$Species, pch=21)