Code to add the n variable:
library(plyr)
options(stringsAsFactor = FALSE)
bnames <- read.csv("bnames2.csv.bz2")
births <- read.csv("http://stat405.had.co.nz/data/births.csv")
bnames <- join(bnames, births)
bnames <- mutate(bnames, n = round(prop * births))