r - leaflet: Annotating numeric variable on the map -


i made plot

enter image description here

with following code.

library(xml) library(ggplot2) library(scales) library(plyr) library(maps)  unemp <-   readhtmltable('http://www.bls.gov/web/laus/laumstrk.htm',                 colclasses = c('character', 'character', 'numeric'))[[2]]  names(unemp) <- c('rank', 'region', 'rate') unemp$region <- tolower(unemp$region)  us_state_map <- map_data('state') map_data <- merge(unemp, us_state_map, = 'region')  map_data <- arrange(map_data, order)  states <- data.frame(state.center, state.abb)  p1 <- ggplot(data = map_data, aes(x = long, y = lat, group = group)) p1 <- p1 + geom_polygon(aes(fill = cut_number(rate, 5))) p1 <- p1 + geom_path(colour = 'gray', linestyle = 2) p1 <- p1 + scale_fill_brewer('unemployment rate (jan 2011)', palette  = 'set1') p1 <- p1 + coord_map() p1 <- p1 + geom_text(data = states, aes(x = x, y = y, label = state.abb, group = null), size = 2) p1 <- p1 + theme_bw() p1

now want reproduce same plot leaflet r package.

library(leaflet)  leaflet(data = map_data) %>%    setview(lng = -77.0167, lat = 38.8833, zoom = 4) %>%    addtiles()

i'd highly appreciate if guide how annotate rate map_data data.frame on map leaflet geom_polygon did in ggplot2 version. highly appreciated. thanks

maybe here's 1 way starting point:

mapstates = map("state", fill = true, plot = false) rates <- cut_number(unemp$rate[match(sub("(.*?):.*", "\\1", mapstates$names), unemp$region)], 5)   leaflet(data = mapstates) %>% addtiles() %>%       addpolygons(fillcolor = brewer_pal(palette = "set1")(8)[as.numeric(rates)], stroke = false) %>%       addlegend(colors = brewer_pal(palette = "set1")(nlevels(rates)), labels = levels(rates), opacity = .2)

enter image description here

add:

with regards other question:

library(raster) pakistan.adm2.spdf <- getdata("gadm", country = "pakistan", level = 2) rates <- cut_number(unemployment.df$unemployment[match(pakistan.adm2.spdf@data$name_2, unemployment.df$id)], 5) leaflet(pakistan.adm2.spdf) %>% addtiles() %>%    addpolygons(fillcolor = brewer_pal(palette = "purd")(nlevels(rates))[as.numeric(rates)], stroke = false, fillopacity = .6) %>%    addlegend(colors = brewer_pal(palette = "purd")(nlevels(rates)), labels = levels(rates), opacity = .6) %>%   setview(lng = 69.374268, lat = 30.028617, zoom = 5)

enter image description here


-

Comments

Post a Comment

Popular posts from this blog

OpenCV OpenCL: Convert Mat to Bitmap in JNI Layer for Android -

there several posts converting mat bitmap using utils.mattobitmap() function. i'm assuming function can called in java layer after importing utils class. i want transfer data memory address pointed uint32_t* bmpcontent; in code below. jniexport void jnicall java_com_nod_nodcv_nodcvactivity_runfilter( jnienv *env, jclass clazz, jobject outbmp, jbytearray indata, jint width, jint height, jint choice, jint filter) { int outsz = width*height; int insz = outsz + outsz/2; androidbitmapinfo bmpinfo; if (androidbitmap_getinfo(env, outbmp, &bmpinfo) < 0) { throwjavaexception(env,"gaussianblur","error retrieving bitmap meta data"); return; } if (bmpinfo.format != android_bitmap_format_rgba_8888) { throwjavaexception(env,"gaussianblur","expecting rgba_8888 format"); return; } uint32_t* bmpcontent; if (androidbitmap_lockpixels(env, outbmp,(void**)&bmpcontent)
Read more

python - How to remove the Xframe Options header in django? -

i have made page has iframe . inside iframe want show multiple different links article facebook, or news, or youtube video or other possible url. but, due xframe header, unable so. referred following link: https://docs.djangoproject.com/en/1.8/ref/clickjacking/ , django xframeoptionsmiddleware (x-frame-options) - allow iframe client ip but didn't help. my settings.py file's middleware_classes is: middleware_classes = ( 'django.contrib.sessions.middleware.sessionmiddleware', 'django.middleware.common.commonmiddleware', 'django.middleware.csrf.csrfviewmiddleware', 'django.contrib.auth.middleware.authenticationmiddleware', 'django.contrib.auth.middleware.sessionauthenticationmiddleware', 'django.contrib.messages.middleware.messagemiddleware', 'django.middleware.clickjacking.xframeoptionsmiddleware', ) from http://django-secure.readthedocs.org/en/latest/middleware.html , found using
Read more

android - org.xmlpull.v1.XmlPullParserException: expected: START_TAG {http://schemas.xmlsoap.org/soap/envelope/}Envelope -

i trying hit soap api in application login purpose , getting above mentioned error , can 1 tell me going wrong , first time soap apis. here code hit soap :- vector<object> args = new vector<object>(); hashtable<string, object> hashtable = new hashtable<string, object>(); hashtable.put("email", "mss.siddhart28@gmail.com"); hashtable.put("password", "siddharth"); args.add(hashtable); soapserializationenvelope envelope = new soapserializationenvelope( soapenvelope.ver11); envelope.dotnet = true; envelope.xsd = soapserializationenvelope.xsd; envelope.enc = soapserializationenvelope.enc; (new marshalhashtable()).register(envelope); httptransportse androidhttptransport = new httptransportse( "http://tempuri.org/", 15000); androidhttptransport.debug = true; string result = ""; try { soapobject request = new soapobject("http:
Read more