for(c in levels(factor(who5$country))) {

  show(c(c, sum(who5$cases[which(who5$country == c)])))

}