r - Keep customized colors with geom_polygon() -


i have plotted map of france customized colors map() :

map(database="france", fill=true, col=color)

results :

map of france colors

(don't mind 2 errors)

and want put map projection of lambert using ggplot2 package :

head(fortify(carte_france)) ggplot(map('france'), aes(long, lat, group = group)) +   geom_polygon(col = 1) +    coord_map(projection = "lambert", parameters = c(lat0 = 41.366005 , lat1 = 51.097523))

however gives me :

map of france geom_polygon()

i know dark colours comes arg fill geom_polygon() there way tell function geom_polygon() not use arg fill or keep colors have put before ?

vector of colours, color : 

c("yellowgreen", "yellowgreen", "yellowgreen", "yellowgreen",  "gold1", "sienna3", "yellowgreen", "yellowgreen", "sienna3",  "gold1", "gold1", "gold1", "sienna3", "sienna3", "gold1", "dodgerblue2",  "dodgerblue2", "dodgerblue2", "gold1", "dodgerblue2", "sienna3",  "dodgerblue2", "burlywood2", "dodgerblue2", "palevioletred4",  "dodgerblue2", "palevioletred4", "dodgerblue2", "palevioletred4",  "palevioletred4", "gold1", "palevioletred4", "gold1", "darkorchid4",  "gold1", "darkorchid4", "palevioletred4", "green4", "cyan4",  "gold1", "palevioletred4", "burlywood2", "green4", "green4",  "cyan4", "darkorchid4", "green4", "burlywood2", "palevioletred4",  "burlywood2", "green4", "green4", "palevioletred4", "palevioletred4",  "palevioletred4", "green4", "burlywood2", "olivedrab2", "green4",  "olivedrab2", "darkorchid4", "darkorchid4", "cyan4", "darkorchid4",  "cyan4", "cyan4", "olivedrab2", "olivedrab2", "olivedrab2", "cyan4",  "cyan4", "olivedrab2", "cyan4", "olivedrab2", "olivedrab2", "cyan4",  "cyan4", "olivedrab2", "olivedrab2", "olivedrab2", "cyan4", "cyan4",  "cyan4", "cyan4", "orange2", "orangered1", "orangered1", "orangered1",  "olivedrab2", "orange2", "olivedrab2", "orangered1", "orange2",  "orangered1", "orange2", "orange2", "orangered1", "orangered1",  "orangered1", "orange2", "orangered1", "orange2", "orangered1",  "olivedrab2", "orangered1", "orangered1", "orangered1", "orangered1",  "orange2", "orange2", "orange2", "chartreuse3", "orangered1",  "chartreuse3")

first, should use map_data create dataset in format ggplot maps library map. in case, not have these white dots on map.
defined order of colors based on order of polygons in map function, created table left joining map_data.

# polygon order map map_france <- map(database="france", fill=true)  # create dataframe department , corresponding colors names_col <- data.frame(   region = map_france$names,   col_dpt = c("yellowgreen", "yellowgreen", "yellowgreen", "yellowgreen",                "gold1", "sienna3", "yellowgreen", "yellowgreen", "sienna3",                "gold1", "gold1", "gold1", "sienna3", "sienna3", "gold1", "dodgerblue2",                "dodgerblue2", "dodgerblue2", "gold1", "dodgerblue2", "sienna3",                "dodgerblue2", "burlywood2", "dodgerblue2", "palevioletred4",                "dodgerblue2", "palevioletred4", "dodgerblue2", "palevioletred4",                "palevioletred4", "gold1", "palevioletred4", "gold1", "darkorchid4",                "gold1", "darkorchid4", "palevioletred4", "green4", "cyan4",                "gold1", "palevioletred4", "burlywood2", "green4", "green4",                "cyan4", "darkorchid4", "green4", "burlywood2", "palevioletred4",                "burlywood2", "green4", "green4", "palevioletred4", "palevioletred4",                "palevioletred4", "green4", "burlywood2", "olivedrab2", "green4",                "olivedrab2", "darkorchid4", "darkorchid4", "cyan4", "darkorchid4",                "cyan4", "cyan4", "olivedrab2", "olivedrab2", "olivedrab2", "cyan4",                "cyan4", "olivedrab2", "cyan4", "olivedrab2", "olivedrab2", "cyan4",                "cyan4", "olivedrab2", "olivedrab2", "olivedrab2", "cyan4", "cyan4",                "cyan4", "cyan4", "orange2", "orangered1", "orangered1", "orangered1",                "olivedrab2", "orange2", "olivedrab2", "orangered1", "orange2",                "orangered1", "orange2", "orange2", "orangered1", "orangered1",                "orangered1", "orange2", "orangered1", "orange2", "orangered1",                "olivedrab2", "orangered1", "orangered1", "orangered1", "orangered1",                "orange2", "orange2", "orange2", "chartreuse3", "orangered1",                "chartreuse3") )

then can join dataframe data created map_data , call colour vector ggplot.

# map in correct format ggplot # , join correspondance of colors carte_france <- map_data('france') %>%   left_join(names_col)  # plot ggplot(carte_france, aes(long, lat, group = group)) +   geom_polygon(col = 1, fill = carte_france$col_dpt) +    coord_map(projection = "lambert",              parameters = c(lat0 = 41.366005 , lat1 = 51.097523))

for information, on website of ign (http://professionnels.ign.fr/geofla), can download map of french departements, information on region. in case, easier create vector of colors based on region name...


Comments

Post a Comment

Popular posts from this blog

commonjs - How to write a typescript definition file for a node module that exports a function? -

consider, toml node module can use: // toml.d.ts declare module toml { export function parse(value:string):any; } declare module "toml" { export = toml; } then: /// <reference path="../../../../../defs/toml/toml.d.ts"/> import toml = require('toml'); toml.parse(...); however, node module export single function, such 'glob' ( https://github.com/isaacs/node-glob ). the node usage of module be: var glob = require("glob") glob("*.js", {}, callback(err, files) { ... }); you'd naively expect this: // glob.d.ts declare function globs(paths:string, options:any, callback:{(err:any, files:string[]):void; ...but because typescripts 'import' semantics bit strange, seems can use 'import .. = require()' statement alias modules . trying call: /// <reference path="../../../../../defs/glob/glob.d.ts"/> import blog = require('glob'); results in: error ts2072: mod
Read more

openid - Okta: Failed to get authorization code through API call -

i'm integrating okta own idp server using okta's api. i'm implementing authorization code flow following steps below: in own server, use /api/v1/authn endpoint sessiontoken. use sessiontoken obtain authorization calling endpoint: /oauth2/v1/authorize?client_id=" + clientid + "&sessiontoken=" + sessiontoken + "&response_type=code&response_mode=query&scope=openid&redirect_uri=" + redirecturl + "&state=evanyang&nonce=" it's supposed return response status code 302 , location header containing redirect url code value. however, keep getting response status code 200 , without location header, html body saying "you using unsupported browser." , "javascript disabled on browser." according api documentation: http://developer.okta.com/docs/api/resources/oidc.html#authentication-request , sessiontoken parameter sufficient this: an okta one-time sessiontoken. allows api-based
Read more

thorough guide for profiling racket code -

did googling ("racket profiling", "racket measure performance"), didn't find , there no examples in docs. did google "profile" search on htdp - no luck. (profile (f ...)) output isn't obvious other small snippets. ideally want python's python -m cprofile usage examples. when search "python profiling", both duckduckgo , google give top result: 26.4. python profilers . (although scanned quickly, seems more of reference "thorough usage guide" examples. if had else in mind, perhaps please link that?) the equivalent racket documentation be: profile: statistical profiler . a usage example: #lang racket (require profile) (profile-thunk (thunk (function-to-profile arg0 arg1) )) here (thunk e) convenience (lambda () e) . bigger example: #lang racket (module mod racket (provide f) (define (f) (for/list ([i 10000]) i))) (require (prefix-in mod: 'mod)) (define (f) (for ([i 10000
Read more