gapminder %>% select(country, year, pop, gdpPercap) %>% filter(year == 2007) %>% transmute(gdp = pop * gdpPercap) %>% arrange(desc(gdp)) %>% top_n(5)