Badges compared by population

badges.csv

gistfile1.txt

library(tidyverse)
library(countrycode)
library(gapminder)

badges <- read_csv('badge.csv')
## Aggregate badges by country
badges_ag <- badges %>% group_by(country) %>% summarise(badge_count=sum(badge_count))

gapminder$country <- countrycode(gapminder$country, origin="country.name", destination = "iso2c")
gap_2007 <- subset(gapminder, year == 2007)


gap_j_badge <- gap_2007 %>% 
  inner_join(badges_ag) %>% 
  mutate(badge_percap=badge_count/(pop/100000))
  
ggplot(gap_j_badge, aes(x=reorder(country,-badge_percap), y=badge_percap)) + geom_bar(stat="identity")