df2k17

library(data.table)

## Warning: package 'data.table' was built under R version 3.3.2

dat <- fread("C:/Users/Kajal/Downloads/us_data.csv")

## 
Read 0.0% of 745447 rows
Read 1.3% of 745447 rows
Read 2.7% of 745447 rows
Read 4.0% of 745447 rows
Read 5.4% of 745447 rows
Read 6.7% of 745447 rows
Read 8.0% of 745447 rows
Read 9.4% of 745447 rows
Read 10.7% of 745447 rows
Read 12.1% of 745447 rows
Read 13.4% of 745447 rows
Read 14.8% of 745447 rows
Read 16.1% of 745447 rows
Read 17.4% of 745447 rows
Read 18.8% of 745447 rows
Read 20.1% of 745447 rows
Read 21.5% of 745447 rows
Read 22.8% of 745447 rows
Read 24.1% of 745447 rows
Read 25.5% of 745447 rows
Read 26.8% of 745447 rows
Read 28.2% of 745447 rows
Read 29.5% of 745447 rows
Read 30.9% of 745447 rows
Read 32.2% of 745447 rows
Read 33.5% of 745447 rows
Read 34.9% of 745447 rows
Read 36.2% of 745447 rows
Read 37.6% of 745447 rows
Read 38.9% of 745447 rows
Read 40.2% of 745447 rows
Read 41.6% of 745447 rows
Read 42.9% of 745447 rows
Read 44.3% of 745447 rows
Read 45.6% of 745447 rows
Read 47.0% of 745447 rows
Read 48.3% of 745447 rows
Read 49.6% of 745447 rows
Read 51.0% of 745447 rows
Read 52.3% of 745447 rows
Read 53.7% of 745447 rows
Read 55.0% of 745447 rows
Read 56.3% of 745447 rows
Read 57.7% of 745447 rows
Read 59.0% of 745447 rows
Read 60.4% of 745447 rows
Read 61.7% of 745447 rows
Read 63.0% of 745447 rows
Read 64.4% of 745447 rows
Read 65.7% of 745447 rows
Read 67.1% of 745447 rows
Read 68.4% of 745447 rows
Read 69.8% of 745447 rows
Read 71.1% of 745447 rows
Read 72.4% of 745447 rows
Read 73.8% of 745447 rows
Read 75.1% of 745447 rows
Read 76.5% of 745447 rows
Read 77.8% of 745447 rows
Read 79.1% of 745447 rows
Read 80.5% of 745447 rows
Read 81.8% of 745447 rows
Read 83.2% of 745447 rows
Read 84.5% of 745447 rows
Read 85.9% of 745447 rows
Read 87.2% of 745447 rows
Read 88.5% of 745447 rows
Read 89.9% of 745447 rows
Read 91.2% of 745447 rows
Read 92.6% of 745447 rows
Read 93.9% of 745447 rows
Read 95.2% of 745447 rows
Read 96.6% of 745447 rows
Read 97.9% of 745447 rows
Read 99.3% of 745447 rows
Read 745447 rows and 172 (of 172) columns from 1.435 GB file in 00:01:46

dat$user_location_latitude <- as.numeric(dat$user_location_latitude) #they won't import as numeric

## Warning: NAs introduced by coercion

dat$user_location_longitude <- as.numeric(dat$user_location_longitude)

## Warning: NAs introduced by coercion

USdat <- subset(dat, user_location_country == "UNITED STATES OF AMERICA") 
USdat$income <- as.numeric(USdat$income)
USdat_small <- dat[sample(1:nrow(USdat),10000,replace=FALSE),]

dat_small_book <- USdat_small[which(is_booking==1),]
dat_small_no_book <- USdat_small[which(is_booking==0),]

library(leaflet)

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

library(maps)

## Warning: package 'maps' was built under R version 3.3.3

leaflet()

map.US <- map(database="state", fill = TRUE)

bins <- c(0, 30000, 40000, 50000, 60000, 70000, Inf)
pal <- colorBin("BuPu", domain = USdat_small$income, bins = bins)

#cluster
leaflet(data=map.US)  %>% addTiles() %>% 
  
  addPolygons(
  fillColor = ~pal(USdat_small$income),
  weight = 2,
  opacity = 1,
  color = "white",
  dashArray = "3",
  fillOpacity = 0.7,
  stroke = TRUE) %>%
  
  addMarkers(dat_small_book$user_location_longitude, dat_small_book$user_location_latitude, clusterOptions = markerClusterOptions(), group="Book") %>%
  addMarkers(dat_small_no_book$user_location_longitude, dat_small_no_book$user_location_latitude, clusterOptions = markerClusterOptions(), group="Look")  %>%
  addLayersControl(overlayGroups = c("Book","Look") ,options = layersControlOptions(collapsed = FALSE)) %>% addLegend(pal = pal, values = ~USdat_small$income, opacity = 0.7, title = NULL,
  position = "bottomright")

## Warning in validateCoords(lng, lat, funcName): Data contains 106 rows with
## either missing or invalid lat/lon values and will be ignored

## Warning in validateCoords(lng, lat, funcName): Data contains 1068 rows with
## either missing or invalid lat/lon values and will be ignored