Create choropleth map

choropleth

data(df_pop_county)
ny_choro <- df_pop_county[1829:1890,]
ny_choro$value <- (subset(crime$Density.sq.mi, Year==2000))
county_choropleth(ny_choro,
                  title      = "New York Population Density by County",
                  legend     = "Density",
                  num_colors = 1,
                  state_zoom = c("new york"))