Random manipulation

ggplot(who, aes(x = log(GNI), y =Under15,color=Region)) +
  geom_point()+scale_color_brewer(palette="Dark2")+
  ylab("Population under 15")+
  ggtitle("GNI vs Under 15")