library(ggplot2)

library(gapminder)

library(dplyr)

glimpse(gapminder)

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