Purpose

To analyze the the population of bla bla i have used code that produce interactive graph:

library(datasets)
library("pacman")     
p_load(dplyr,tidyr,stringr,ggplot2,rio,lubridate, plotly)
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

fig <- ggplot(data=iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point()

ggplotly(fig)