install.packages("maptools")
library(maptools)
data(wrld_simpl)
plot(wrld_simpl)
countries<-wrld_simpl$NAME
#countries
#countries[18]

Australia<-400/3700
France<-260/3700
Japan<-300/3700
Nigeria<-1319/3700
Peru<-3700/3700
Thailand<-1287/3700
USA<-750/3700
nc<-length(countries)
col.map<-numeric(nc)
col.map[which(countries=="Australia")] <-rgb(Australia,1-Australia,0)
col.map[which(countries=="France")] <-rgb(France,1-France,0)
ol.map[which(countries=="Japan")] <-rgb(Japan,1-Japan,0)
col.map[which(countries=="Nigeria")]<-rgb(Nigeria,1-Nigeria,0)
col.map[which(countries=="Peru")]<-rgb(Peru,1-Peru,0)
col.map[which(countries=="Thailand")]<-rgb(Thailand,1-Thailand,0)
col.map[which(countries=="United States")]<-rgb(USA, (1-USA),0) 
plot(wrld_simpl,col=col.map)