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