leaflet_exercise

library(leaflet)

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

library(data.table)

# create a dataset

city <- c("Mumbai", "New Delhi", "Chennai", "Kolkata", "Bengaluru", "Hyderabad" )
popn <- c(12442373, 11034555, 7088000, 4496694, 8443675, 6731790)
lng  <- c(72.87, 77.21, 80.27, 88.36, 77.59, 78.49)
lat  <- c(19.07, 28.61, 13.08, 22.57, 12.97, 17.39)
popup <- c("Mumbai -- Economic capital", 
           "New Delhi -- India's national capital", 
           "Chennai -- city of mathematicians", 
           "Kolkata -- British India capital", 
           "Bengaluru -- IT capital", 
           "Hyderabad -- City of pearls")

data <- data.table( city, popn, lng, lat, popup )


# Create a continuous palette function
pal <- colorNumeric(
  palette = "Red",
  domain = data$popn
)

m <- leaflet()
m <- addTiles(m) # Add default OpenStreetMap map tiles
m <- addMarkers(m, data=data, popup = popup)

m2 <- leaflet(data)
m2 <- addCircles(m, data=data, 
                 lng = ~lng, 
                 lat = ~lat, 
                 weight = 1, 
                 radius = ~sqrt(popn) * 30, 
                 popup = ~city, 
                 color = ~pal (popn))

m2

#browseURL("C:\\Users\\VinayMahajan\\Desktop\\Misc\\Coursera Data Science\\week2leaflet.html")