library(ggplot2)
library(gapminder)
ggplot(gapminder, aes(x=gdpPercap, y=lifeExp, col=continent))+
  geom_point()+scale_x_log10()