x = readLines("http://developer.r-project.org/R.svnlog.2007") rx = x[grep("^r",x)] who = gsub(" ","",sapply(strsplit(rx,"\\|"),"[",2)) twho = table(who) twho["ripley"]/sum(twho) 74% of all commits!