Andrescrcs
One more question on your code. Why don't you use
scale_fill_manual(name=Continent, values=c("red", "brown", "green", "dark green", "blue", "purple", "pink"), labels=c("Africa", "Asia", "Europe", "North America", "OceniaRepublic", " European", " America")
for the bar color.