I tried this:
library(ggplot2)
library(dplyr)
country.type = map_data("world")
country.type <- mutate(country.type, fill = ifelse(region %in% c("Madagascar", "Mexico","Brazil"), "springgreen", "grey80"))
ggplot(country.type, aes(long, lat, fill = fill, group=group)) +
geom_polygon(colour="gray80")+
scale_fill_identity()+theme_classic() +
theme(axis.line = element_blank(),
axis.text = element_blank(),
axis.title = element_blank(),
axis.ticks = element_blank(),
panel.background = element_rect(colour= "black", size= 1))
But, I can't paint the other countries

