# geom_point

ggplot(gapminder,

aes(x=gdpPercap, y=lifeExp, color=continent)) +

geom_point() + geom_smooth(method='loess', formula='y~x') +

facet_wrap(~continent)

For smooth graphs

ggplot(gapminder,

aes(x=gdpPercap, y=lifeExp, color=continent)) +

geom_point() + geom_smooth(method='loess', formula='y~x') +

facet_wrap(~continent)

For smooth graphs