R 3.2.1, reverse colors on map -

here part of r code

# create new grouping variable percent_sep12_assets <- ifelse(sep[,8] <= 33, "lower third", ifelse(sep[,8] >= 55, "upper third", "middle third"))  # map bbox <- make_bbox(sep$longitude, sep$latitude, f = 0.3) map <- get_map(bbox)   # plot map , use grouping variable fill inside aes ggmap(map) +   geom_point(data=sep, aes(x = longitude, y = latitude, color=percent_sep12_assets ), size=5, alpha=0.6) +   scale_color_manual(breaks=c("upper third", "middle third","lower third"), values=c("green","orange","red")) 

but instead of map making

"upper third" correspond green "middle third" correspond orange "lower third" correspond red

the color scheme mixed up, i.e. upper third corresponds red, , lower third corresponds green.

higher numbers = = green, map shows opposite. how fix this?

what tried far

the following code

# create new grouping variable percent_sep12_assets <- ifelse(sep[,8] <= 33, "lower third", ifelse(sep[,8] >= 55, "upper third", "middle third")) percent_sep12_assets <- factor(percent_sep12_assets) levels(percent_sep12_assets) <- c("upper third", "middle third", "lower third")   # map bbox <- make_bbox(sep$longitude, sep$latitude, f = 0.3) map <- get_map(bbox)   # plot map , use grouping variable fill inside aes ggmap(map) +   geom_point(data=sep, aes(x = longitude, y = latitude, color=percent_sep12_assets ), size=9, alpha=0.6) +   scale_color_manual(values=c("green","orange","red")) 

will give this, corrects data labels, points in map inverted, i.e. green red , vice versa (points in blue circle should red)

but when reversed "red" , "green" in original code, works (area in blue circle supposed red), believe "band-aid" approach

# create new grouping variable percent_sep12_assets <- ifelse(sep[,8] <= 33, "lower third", ifelse(sep[,8] >= 55, "upper third", "middle third"))  # map bbox <- make_bbox(sep$longitude, sep$latitude, f = 0.3) map <- get_map(bbox)   # plot map , use grouping variable fill inside aes ggmap(map) +   geom_point(data=sep, aes(x = longitude, y = latitude, color=percent_sep12_assets ), size=9, alpha=0.6) +   scale_color_manual(breaks=c("upper third", "middle third","lower third"), values=c("red","orange","green")) 

turn percent_sep12_assets factor variable , specify order of levels:

# create new grouping variable percent_sep12_assets <- ifelse(sep[,8] <= 33, "lower third", ifelse(sep[,8] >= 55, "upper third", "middle third")) percent_sep12_assets <- factor(percent_sep12_assets,                                levels = c("upper third", "middle third", "lower third"))   # map bbox <- make_bbox(sep$longitude, sep$latitude, f = 0.3) map <- get_map(bbox)   # plot map , use grouping variable fill inside aes ggmap(map) +   geom_point(data=sep, aes(x = longitude, y = latitude, color=percent_sep12_assets ), size=5, alpha=0.6) +   scale_color_manual(values=c("green","orange","red"))