Assignment-1.R

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.3.3

cityNames = c('Mumbai','Chennai','Kolkata','Begaluru')
pop = c(1.84,0.70,0.45,0.84)
lat =c(19.0760,13.0827,22.5726,12.9716)
lng =c(72.8777,80.2707,88.3639,77.5946)
cities <- data.frame(name=cityNames,pop=pop,lat=lat,lng=lng)

cities %>%
  leaflet() %>%
  addTiles() %>%
  addCircles(weight = 1,radius = cities$pop *100000)

## Assuming "lng" and "lat" are longitude and latitude, respectively