correlation

iris %>% 
  select_if(is.numeric) %>% 
  drop_na() %>% 
  cor() %>% 
  corrplot::corrplot(type = "upper", 
                     tl.col = "black")

GGally::ggpairs(iris, aes(colour = Species))