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