Code from Omar AlOmeir, posted by Jenny Bryan

See this Gist for the code.

See this RPub for the rendered HTML.

library(ggplot2)
suppressMessages(library(dplyr))
#devtools::install_github("jennybc/gapminder")
library("gapminder")
gtbl <- tbl_df(gapminder)
continent mean median
Africa 2193.755 1192.138
Americas 7136.110 5465.510
Asia 7902.150 2646.787
Europe 14469.476 12081.749
Oceania 18621.609 17983.304