install.packages('leaflet')
library('leaflet')

data1 <- read_csv("dataset.csv")

c1 <- chartr('()[]','    ', data1$location)

m1 <- matrix(as.numeric(strsplit(c1,",")[[1]]),ncol=2,byrow=TRUE)

map <- leaflet()
 map <- addTiles(map)
 map <- addPolygons(map, data = m1, color = "blue", weight = 4,
      smoothFactor = 0.5,opacity = 1.0, fillOpacity = 0.5,fillColor =
 'red')
map