Relationship between Agriculture, Education and Fertility

Code for Plot

library(plotly)

plot_ly(swiss, x = swiss$Education, y = swiss$Agriculture, 
        type = "scatter", mode = "markers", 
        color = swiss$Fertility) %>% 
  layout(xaxis = list(title = "Education"), 
         yaxis = list(title = "Agriculture"))