Re: keep customized colors with geom_polygon
30 views
Skip to first unread message
Brandon Hurr
Apr 6, 2017, 1:16:08 PM4/6/17
to Mbr, ggplot2
Your example isn't really fully reproducible, but it looks like you can mostly get what you want by specifying a scale manually:
library(ggplot2)
library(maps)
colors = 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")
ggplot(map('france'), aes(long, lat, group = group, fill = region)) +
geom_polygon() +
coord_map(projection = "lambert", parameters = c(lat0 = 41.366005 , lat1 = 51.097523)) + scale_fill_manual(values = colors)
The trouble is that the order of the colors works one way when you use map() and another once it's been fortified into ggplot2. You should probably create a dataframe that translates between the region name and the color that you want. Fortify the map data and use dplyr to join the color data, then use scale_colour_identity to force the colors to what you have decided.
Post a better example and I think we can get there.
B
On Thu, Apr 6, 2017 at 4:54 AM, Mbr <wana...@hotmail.fr> wrote:
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")
Reply all
Reply to author
Forward
0 new messages