library(mapdata)
map('world', c('Germany', 'France'))
map('world', 'France', fill=TRUE, col='red', add=TRUE)
map('world', 'Germany', fill=TRUE, col='green', add=TRUE)